From 6022cfa362ec218bda39b0bda7f307e2664c3e26 Mon Sep 17 00:00:00 2001 From: herbelin Date: Sat, 17 Apr 2010 19:04:21 +0000 Subject: Moved Case3.v from ideal features to success (it works since 8.2). Two other tests are still "ideal features" though not failing (evars_subst.v is a complexity test still of bad complexity and universes.v just describes an improvement to do without checking anything). git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12949 85f007b7-540e-0410-9357-904b9bb8a0f7 --- test-suite/ideal-features/Case3.v | 29 ----------------------------- test-suite/ideal-features/eapply_evar.v | 2 +- 2 files changed, 1 insertion(+), 30 deletions(-) delete mode 100644 test-suite/ideal-features/Case3.v (limited to 'test-suite/ideal-features') diff --git a/test-suite/ideal-features/Case3.v b/test-suite/ideal-features/Case3.v deleted file mode 100644 index de7784aec..000000000 --- a/test-suite/ideal-features/Case3.v +++ /dev/null @@ -1,29 +0,0 @@ -Inductive Le : nat -> nat -> Set := - | LeO : forall n : nat, Le 0 n - | LeS : forall n m : nat, Le n m -> Le (S n) (S m). - -Parameter discr_l : forall n : nat, S n <> 0. - -Type - (fun n : nat => - match n return (n = 0 \/ n <> 0) with - | O => or_introl (0 <> 0) (refl_equal 0) - | S O => or_intror (1 = 0) (discr_l 0) - | S (S x) => or_intror (S (S x) = 0) (discr_l (S x)) - end). - -Parameter iguales : forall (n m : nat) (h : Le n m), Prop. - -Type - match LeO 0 as h in (Le n m) return Prop with - | LeO O => True - | LeS (S x) (S y) H => iguales (S x) (S y) H - | _ => False - end. - -Type - match LeO 0 as h in (Le n m) return Prop with - | LeO O => True - | LeS (S x) O H => iguales (S x) 0 H - | _ => False - end. diff --git a/test-suite/ideal-features/eapply_evar.v b/test-suite/ideal-features/eapply_evar.v index 8c9a448e7..547860bf1 100644 --- a/test-suite/ideal-features/eapply_evar.v +++ b/test-suite/ideal-features/eapply_evar.v @@ -1,7 +1,7 @@ (* Test propagation of evars from subgoal to brother subgoals *) (* This does not work (oct 2008) because "match goal" sees "?evar = O" - and not "O = O" + and not "O = O" *) Lemma eapply_evar : O=O -> 0=O. intro H; eapply trans_equal; -- cgit v1.2.3