summaryrefslogtreecommitdiff
path: root/test-suite/success/Discriminate.v
diff options
context:
space:
mode:
authorGravatar Samuel Mimram <smimram@debian.org>2006-04-28 14:59:16 +0000
committerGravatar Samuel Mimram <smimram@debian.org>2006-04-28 14:59:16 +0000
commit3ef7797ef6fc605dfafb32523261fe1b023aeecb (patch)
treead89c6bb57ceee608fcba2bb3435b74e0f57919e /test-suite/success/Discriminate.v
parent018ee3b0c2be79eb81b1f65c3f3fa142d24129c8 (diff)
Imported Upstream version 8.0pl3+8.1alphaupstream/8.0pl3+8.1alpha
Diffstat (limited to 'test-suite/success/Discriminate.v')
-rw-r--r--test-suite/success/Discriminate.v8
1 files changed, 4 insertions, 4 deletions
diff --git a/test-suite/success/Discriminate.v b/test-suite/success/Discriminate.v
index 39d2f4bb..f28c83de 100644
--- a/test-suite/success/Discriminate.v
+++ b/test-suite/success/Discriminate.v
@@ -2,10 +2,10 @@
(* Check that Discriminate tries Intro until *)
-Lemma l1 : O=(S O)->False.
-Discriminate 1.
+Lemma l1 : 0 = 1 -> False.
+ discriminate 1.
Qed.
-Lemma l2 : (H:O=(S O))H==H.
-Discriminate H.
+Lemma l2 : forall H : 0 = 1, H = H.
+ discriminate H.
Qed.