blob: 3b882dc4ca8f377b3a4e8900ac8ac5add2845beb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(* Check that expansion of alias in pattern-matching compilation is no
longer dependent of whether the pattern-matching problem occurs in a
typed context or at toplevel (solved from revision 10883) *)
Definition f :=
fun n m : nat =>
match n, m with
| O, _ => O
| n, O => n
| _, _ => O
end.
Goal f =
fun n m : nat =>
match n, m with
| O, _ => O
| n, O => n
| _, _ => O
end.
unfold f.
reflexivity.
Qed.
|
