diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-12-05 12:12:39 +0100 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-03-23 22:13:57 +0100 |
commit | d2830ca4adf062df96d5e8978d4254cf5ece30c4 (patch) | |
tree | 074648d6905075241dd8fdebf057e0a7b3b5beb8 /test-suite/success/record_syntax.v | |
parent | ac655f3c8eb348b84c5ba3e3ed41977d36849ea5 (diff) |
Supporting arbitrary binders in record fields, including e.g. patterns.
Diffstat (limited to 'test-suite/success/record_syntax.v')
-rw-r--r-- | test-suite/success/record_syntax.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/success/record_syntax.v b/test-suite/success/record_syntax.v index db2bbb0dc..07a5bc060 100644 --- a/test-suite/success/record_syntax.v +++ b/test-suite/success/record_syntax.v @@ -45,3 +45,11 @@ Record Foo := { foo : unit; }. Definition foo_ := {| foo := tt; |}. End E. + +Module F. + +Record Foo := { foo : nat * nat -> nat -> nat }. + +Definition foo_ := {| foo '(x,y) n := x+y+n |}. + +End F. |