diff options
| author | Hugo Herbelin | 2019-11-14 11:36:51 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2020-02-22 22:37:41 +0100 |
| commit | ba52fd0dff4dcf06621fb91ff4902a060a0b222d (patch) | |
| tree | 48ba8f78e3e765d46c86364499846bc611a033cc /test-suite | |
| parent | 04b9870f0ebe79fde789551c8e172aad1e7cfc5c (diff) | |
Use auxiliary function for externing record patterns.
Also apply the same conditions for printing constructors as record
instances in both terms and patterns.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/output/Record.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test-suite/output/Record.v b/test-suite/output/Record.v index d9a649fadc..71a8afa131 100644 --- a/test-suite/output/Record.v +++ b/test-suite/output/Record.v @@ -20,6 +20,8 @@ Check {| field := 5 |}. Check build_r 5. Check build_c 5. +Set Printing Records. + Record N := C { T : Type; _ : True }. Check fun x:N => let 'C _ p := x in p. Check fun x:N => let 'C T _ := x in T. |