diff options
| author | Matthieu Sozeau | 2014-06-26 13:58:35 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-26 13:58:35 +0200 |
| commit | 6281430231c9d4ea1353372678f1eb483e32a015 (patch) | |
| tree | 6822f5f7788c7a64ec5f61943eb502e47d01156e /test-suite/bugs/opened | |
| parent | 0b78edbafedf87f150840228f7d3b7938c809c14 (diff) | |
Fixed bug with new semantics of change.
Diffstat (limited to 'test-suite/bugs/opened')
| -rw-r--r-- | test-suite/bugs/opened/3387.v | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/test-suite/bugs/opened/3387.v b/test-suite/bugs/opened/3387.v deleted file mode 100644 index 16c4e7da2f..0000000000 --- a/test-suite/bugs/opened/3387.v +++ /dev/null @@ -1,19 +0,0 @@ -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 *) - Fail 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. *) |