blob: f1f1b8c051eab10ffd124aaa8c7320fcbfac8410 (
plain)
1
2
3
4
5
6
7
8
9
10
|
Require Import Recdef.
Function dumb_works (a:nat) {struct a} :=
match (fun x => x) a with O => O | S n' => dumb_works n' end.
Function dumb_nope (a:nat) {struct a} :=
match (id (fun x => x)) a with O => O | S n' => dumb_nope n' end.
(* This check is just present to ensure Function worked well *)
Check R_dumb_nope_complete.
|