blob: a55515feb64e64dbe375b893384151841d7428f6 (
plain)
1
2
3
4
5
6
7
8
9
|
Record C {PROP: Prop} (P : PROP) : Type := { c : unit}.
Check fun '{|c:=x|} => tt. (* Fine *)
Arguments Build_C {_ _} _.
Check fun '(Build_C _) => tt. (* Works. Note: just 1 argument! *)
Check fun '{|c:=x|} => tt.
(* Error: The constructor @Build_C (in type @C) expects 1 argument. *)
Set Asymmetric Patterns.
Check fun '{|c:=x|} => tt.
|
