diff options
author | 2014-06-26 13:58:35 +0200 | |
---|---|---|
committer | 2014-06-26 13:58:35 +0200 | |
commit | 6281430231c9d4ea1353372678f1eb483e32a015 (patch) | |
tree | 6822f5f7788c7a64ec5f61943eb502e47d01156e /test-suite/bugs/closed/3387.v | |
parent | 0b78edbafedf87f150840228f7d3b7938c809c14 (diff) |
Fixed bug with new semantics of change.
Diffstat (limited to 'test-suite/bugs/closed/3387.v')
-rw-r--r-- | test-suite/bugs/closed/3387.v | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3387.v b/test-suite/bugs/closed/3387.v new file mode 100644 index 000000000..feff8af2a --- /dev/null +++ b/test-suite/bugs/closed/3387.v @@ -0,0 +1,21 @@ +Set Universe Polymorphism. +Set Printing Universes. +Record Cat := { Obj :> Type }. +Definition set_cat := {| Obj := Type |}. +Goal Type@{i} = Type@{j}. +Proof. + (* 1 subgoals +, subgoal 1 (ID 3) + + ============================ + Type@{Top.368} = Type@{Top.370} +(dependent evars:) *) + let x := constr:(Type) in + let y := constr:(Obj set_cat) in + unify x y. (* success *) + let x := constr:(Type) in + let y := constr:(Obj set_cat) in + first [ unify x y | fail 2 "no unify" ]; + change x with y. (* Error: Not convertible. *) + reflexivity. +Defined.
\ No newline at end of file |