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 | |
| parent | 0b78edbafedf87f150840228f7d3b7938c809c14 (diff) | |
Fixed bug with new semantics of change.
| -rw-r--r-- | test-suite/bugs/closed/3387.v (renamed from test-suite/bugs/opened/3387.v) | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test-suite/bugs/opened/3387.v b/test-suite/bugs/closed/3387.v index 16c4e7da2f..feff8af2a5 100644 --- a/test-suite/bugs/opened/3387.v +++ b/test-suite/bugs/closed/3387.v @@ -13,7 +13,9 @@ Proof. let x := constr:(Type) in let y := constr:(Obj set_cat) in unify x y. (* success *) - Fail let x := constr:(Type) in + 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 |