diff options
author | 2014-10-23 18:10:03 +0200 | |
---|---|---|
committer | 2014-10-23 18:46:27 +0200 | |
commit | 20eb7fed88ec3154721e34b549e39c0b5cefba23 (patch) | |
tree | 6848b067d262e0a20f84e49adf795021037b42e3 | |
parent | b5a5253d90275c373c15ff1dd384fea98fe714fd (diff) |
Fixing clash in output test-suite Cases.
-rw-r--r-- | test-suite/output/Cases.out | 16 | ||||
-rw-r--r-- | test-suite/output/Cases.v | 6 |
2 files changed, 11 insertions, 11 deletions
diff --git a/test-suite/output/Cases.out b/test-suite/output/Cases.out index 0ebc251bc..d59034836 100644 --- a/test-suite/output/Cases.out +++ b/test-suite/output/Cases.out @@ -8,14 +8,14 @@ fix F (t : t) : P t := (let x := t in forall x0 : x, P x0 -> P (k x0)) -> forall t : t, P t t_rect is not universe polymorphic - = fun d : A => match d with - | @C _ _ b => b - end - : A -> 0 = 0 - = fun d : A => match d with - | @C _ _ b => b - end - : A -> 0 = 0 + = fun d : TT => match d with + | @CTT _ _ b => b + end + : TT -> 0 = 0 + = fun d : TT => match d with + | @CTT _ _ b => b + end + : TT -> 0 = 0 proj = fun (x y : nat) (P : nat -> Type) (def : P x) (prf : P y) => match Nat.eq_dec x y with diff --git a/test-suite/output/Cases.v b/test-suite/output/Cases.v index ef3a3a71e..4116a5ebc 100644 --- a/test-suite/output/Cases.v +++ b/test-suite/output/Cases.v @@ -5,10 +5,10 @@ Inductive t : Set := Print t_rect. -Record A : Type := C { a := 0 : nat; c: nat; b : a=a }. +Record TT : Type := CTT { f1 := 0 : nat; f2: nat; f3 : f1=f1 }. -Eval cbv in fun d:A => match d return 0 = 0 with C a _ b => b end. -Eval lazy in fun d:A => match d return 0 = 0 with C a _ b => b end. +Eval cbv in fun d:TT => match d return 0 = 0 with CTT a _ b => b end. +Eval lazy in fun d:TT => match d return 0 = 0 with CTT a _ b => b end. (* Do not contract nested patterns with dependent return type *) (* see bug #1699 *) |