diff options
| author | Pierre-Marie Pédrot | 2015-07-27 14:28:15 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-07-27 14:28:15 +0200 |
| commit | aff5a1aaeb9b50c60ff32b7d5336a44fd18428ee (patch) | |
| tree | 39d21c9798b9ce7fb59892414f71fb60be61bcde /test-suite/success | |
| parent | 05f22a5d6d5b8e3e80f1a37321708ce401834430 (diff) | |
| parent | cb145fa37d463210832c437f013231c9f028e1aa (diff) | |
Merge branch 'v8.5'
Diffstat (limited to 'test-suite/success')
| -rw-r--r-- | test-suite/success/primitiveproj.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test-suite/success/primitiveproj.v b/test-suite/success/primitiveproj.v index 068f8ac3cc..125615c535 100644 --- a/test-suite/success/primitiveproj.v +++ b/test-suite/success/primitiveproj.v @@ -188,3 +188,10 @@ Set Printing All. Check (@p' nat). Check p'. Unset Printing All. + +Record wrap (A : Type) := { unwrap : A; unwrap2 : A }. + +Definition term (x : wrap nat) := x.(unwrap). +Definition term' (x : wrap nat) := let f := (@unwrap2 nat) in f x. +Recursive Extraction term term'. +(*Unset Printing Primitive Projection Parameters.*)
\ No newline at end of file |