blob: d9ce546a2b2c50790cf732562e3e98890db635f1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(* 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.
|
