diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-21 18:39:05 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-21 18:39:05 +0200 |
| commit | c28a2a3a1297098ee73ad5b26e714164b6167d2b (patch) | |
| tree | f49af5cc9d5105ea51afd80e8cca3cf7a86c4cbf /test-suite/bugs/closed/3495.v | |
| parent | 78eb89f254d699f1024573c39ad8ed5808245210 (diff) | |
Adding a test for bug #3495.
Diffstat (limited to 'test-suite/bugs/closed/3495.v')
| -rw-r--r-- | test-suite/bugs/closed/3495.v | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3495.v b/test-suite/bugs/closed/3495.v new file mode 100644 index 000000000..102a2aba0 --- /dev/null +++ b/test-suite/bugs/closed/3495.v @@ -0,0 +1,18 @@ +Require Import RelationClasses. + +Axiom R : Prop -> Prop -> Prop. +Declare Instance : Reflexive R. + +Class bar := { x : False }. +Record foo := { a : Prop ; b : bar }. + +Definition default_foo (a0 : Prop) `{b : bar} : foo := {| a := a0 ; b := b |}. + +Goal exists k, R k True. +Proof. +eexists. +evar (b : bar). +let e := match goal with |- R ?e _ => constr:(e) end in +unify e (a (default_foo True)). +subst b. +reflexivity. |