diff options
author | Jason Gross <jgross@mit.edu> | 2014-05-09 10:13:32 -0400 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2014-05-10 15:39:39 +0200 |
commit | c7284415e4bdd3315c84c7d15d140d3fee000bc5 (patch) | |
tree | cc8ded3feba7e1da0dd4f7d17b7e5f974de752c3 /test-suite/bugs/closed/HoTT_coq_124.v | |
parent | 3f64bd23a343bcd7be0ef07afa7d9e3249df24ec (diff) |
Move opened bugs to bugs/opened
Diffstat (limited to 'test-suite/bugs/closed/HoTT_coq_124.v')
-rw-r--r-- | test-suite/bugs/closed/HoTT_coq_124.v | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/test-suite/bugs/closed/HoTT_coq_124.v b/test-suite/bugs/closed/HoTT_coq_124.v deleted file mode 100644 index e6e90ada8..000000000 --- a/test-suite/bugs/closed/HoTT_coq_124.v +++ /dev/null @@ -1,29 +0,0 @@ -Set Implicit Arguments. -Set Primitive Projections. - -Polymorphic Inductive eqp A (x : A) : A -> Type := eqp_refl : eqp x x. -Monomorphic Inductive eqm A (x : A) : A -> Type := eqm_refl : eqm x x. - -Polymorphic Record prodp (A B : Type) : Type := pairp { fstp : A; sndp : B }. -Monomorphic Record prodm (A B : Type) : Type := pairm { fstm : A; sndm : B }. - -Check eqm_refl _ : eqm (fun x : prodm Set Set => pairm (fstm x) (sndm x)) (fun x => x). (* success *) -Check eqp_refl _ : eqp (fun x : prodm Set Set => pairm (fstm x) (sndm x)) (fun x => x). (* success *) -Check eqm_refl _ : eqm (fun x : prodp Set Set => pairp (fstp x) (sndp x)) (fun x => x). (* Error: -The term - "eqm_refl (fun x : prodp Set Set => {| fstp := fstp x; sndp := sndp x |})" -has type - "eqm (fun x : prodp Set Set => {| fstp := fstp x; sndp := sndp x |}) - (fun x : prodp Set Set => {| fstp := fstp x; sndp := sndp x |})" -while it is expected to have type - "eqm (fun x : prodp Set Set => {| fstp := fstp x; sndp := sndp x |}) - (fun x : prodp Set Set => x)". *) -Check eqp_refl _ : eqp (fun x : prodp Set Set => pairp (fstp x) (sndp x)) (fun x => x). (* Error: -The term - "eqp_refl (fun x : prodp Set Set => {| fstp := fstp x; sndp := sndp x |})" -has type - "eqp (fun x : prodp Set Set => {| fstp := fstp x; sndp := sndp x |}) - (fun x : prodp Set Set => {| fstp := fstp x; sndp := sndp x |})" -while it is expected to have type - "eqp (fun x : prodp Set Set => {| fstp := fstp x; sndp := sndp x |}) - (fun x : prodp Set Set => x)". *) |