diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-10-27 11:38:47 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-10-27 11:38:47 +0000 |
commit | e60054fe4dbdc26ed545c7ca6fb8ab36b244f2f7 (patch) | |
tree | 9afe210d0103863b920989845bd27b0049a97423 /test-suite | |
parent | 1c450e282d8e6ae37f687c545776939f2d975cf3 (diff) |
- Fixed many "Theorem with" bugs.
- Fixed doc of assert as.
- Doc of apply in + update credits.
- Nettoyage partiel de Even.v en utilisant "Theorem with".
- Added check that name is not in use for "generalize as".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11511 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/ideal-features/apply.v | 9 | ||||
-rw-r--r-- | test-suite/output/set.out | 21 | ||||
-rw-r--r-- | test-suite/output/set.v | 10 |
3 files changed, 40 insertions, 0 deletions
diff --git a/test-suite/ideal-features/apply.v b/test-suite/ideal-features/apply.v new file mode 100644 index 000000000..b10d5dbf9 --- /dev/null +++ b/test-suite/ideal-features/apply.v @@ -0,0 +1,9 @@ +(* 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" + +Lemma eapply_evar : O=O -> 0=O. +intro H; eapply trans_equal; + [apply H | match goal with |- ?x = ?x => reflexivity end]. +Qed. diff --git a/test-suite/output/set.out b/test-suite/output/set.out new file mode 100644 index 000000000..4c82d7295 --- /dev/null +++ b/test-suite/output/set.out @@ -0,0 +1,21 @@ +1 subgoal + + y1 := 0 : nat + x := 0 + 0 : nat + ============================ + x = x +1 subgoal + + y1 := 0 : nat + y2 := 0 : nat + x := y2 + 0 : nat + ============================ + x = x +1 subgoal + + y1 := 0 : nat + y2 := 0 : nat + y3 := 0 : nat + x := y2 + y3 : nat + ============================ + x = x diff --git a/test-suite/output/set.v b/test-suite/output/set.v new file mode 100644 index 000000000..0e745354a --- /dev/null +++ b/test-suite/output/set.v @@ -0,0 +1,10 @@ +Goal let x:=O+O in x=x. +intro. +set (y1:=O) in (type of x). +Show. +set (y2:=O) in (value of x) at 1. +Show. +set (y3:=O) in (value of x). +Show. +trivial. +Qed. |