diff options
author | 2014-04-08 01:42:49 -0400 | |
---|---|---|
committer | 2014-05-10 15:39:55 +0200 | |
commit | 8cc25de5e1c07fe93bba85c3792e5c4153066e5c (patch) | |
tree | 52c53213b1b3dfa13155feb752aaa5d257f84e66 /test-suite/bugs/opened/HoTT_coq_102.v | |
parent | c7284415e4bdd3315c84c7d15d140d3fee000bc5 (diff) |
Add appropriate Fail(s) to opened bugs
The contract is that a file in bugs/opened should not raise errors if
the bug is still open.
Some of them fail for different reasons than they used to; I'm not sure
what to do about these.
Diffstat (limited to 'test-suite/bugs/opened/HoTT_coq_102.v')
-rw-r--r-- | test-suite/bugs/opened/HoTT_coq_102.v | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/test-suite/bugs/opened/HoTT_coq_102.v b/test-suite/bugs/opened/HoTT_coq_102.v index 72b4ffe94..9d87517e1 100644 --- a/test-suite/bugs/opened/HoTT_coq_102.v +++ b/test-suite/bugs/opened/HoTT_coq_102.v @@ -19,5 +19,9 @@ Definition focus A (_ : A) := True. Definition CommaCategory_Object (A : Category) (S : Functor TerminalCategory A) : Type. assert (Hf : focus ((S tt) = (S tt))) by constructor. - progress change CObject with (fun C => @Object (CObject C) C) in *. + let C1 := constr:(CObject) in + let C2 := constr:(fun C => @Object (CObject C) C) in + let check := constr:(eq_refl : C1 = C2) in + unify C1 C2. + Fail progress change CObject with (fun C => @Object (CObject C) C) in *. (* not convertible *) |