blob: 0abc88c282dab46bdc40193ec107f2e8a540e379 (
plain)
1
2
3
4
|
(* These calls were raising an anomaly at some time *)
Inductive A : nat -> id (nat->Type) := .
Eval vm_compute in fun x => match x in A y z return y = z with end.
Eval native_compute in fun x => match x in A y z return y = z with end.
|