From 763cf4f37e10d9a0e8a2a0e9286c02708a60bf08 Mon Sep 17 00:00:00 2001 From: herbelin Date: Fri, 16 Jul 2004 20:01:26 +0000 Subject: Nouvelle en-tĂȘte git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5920 85f007b7-540e-0410-9357-904b9bb8a0f7 --- test-suite/bench/lists-100.v | 14 +++++++------- test-suite/bench/lists_100.v | 14 +++++++------- test-suite/failure/Tauto.v | 14 +++++++------- test-suite/failure/clash_cons.v | 14 +++++++------- test-suite/failure/fixpoint1.v | 14 +++++++------- test-suite/failure/illtype1.v | 14 +++++++------- test-suite/failure/positivity.v | 14 +++++++------- test-suite/failure/redef.v | 14 +++++++------- test-suite/failure/search.v | 14 +++++++------- test-suite/ideal-features/Apply.v | 14 +++++++------- test-suite/success/Check.v | 14 +++++++------- test-suite/success/Field.v | 14 +++++++------- test-suite/success/Tauto.v | 14 +++++++------- test-suite/success/eauto.v | 14 +++++++------- test-suite/success/eqdecide.v | 14 +++++++------- test-suite/success/fix.v | 14 +++++++------- test-suite/success/import_lib.v | 4 ++-- test-suite/success/inds_type_sec.v | 14 +++++++------- test-suite/success/induct.v | 14 +++++++------- test-suite/success/mutual_ind.v | 14 +++++++------- test-suite/success/unfold.v | 14 +++++++------- test-suite/tactics/TestRefine.v | 26 +++++++++++++------------- 22 files changed, 155 insertions(+), 155 deletions(-) (limited to 'test-suite') diff --git a/test-suite/bench/lists-100.v b/test-suite/bench/lists-100.v index 0a4b515066..4accbf344e 100644 --- a/test-suite/bench/lists-100.v +++ b/test-suite/bench/lists-100.v @@ -1,10 +1,10 @@ -(***********************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* list0 -> list0. Inductive list1 : Set := nil1 : list1 | cons1 : Set -> list1 -> list1. Inductive list2 : Set := nil2 : list2 | cons2 : Set -> list2 -> list2. diff --git a/test-suite/bench/lists_100.v b/test-suite/bench/lists_100.v index 0a4b515066..4accbf344e 100644 --- a/test-suite/bench/lists_100.v +++ b/test-suite/bench/lists_100.v @@ -1,10 +1,10 @@ -(***********************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* list0 -> list0. Inductive list1 : Set := nil1 : list1 | cons1 : Set -> list1 -> list1. Inductive list2 : Set := nil2 : list2 | cons2 : Set -> list2 -> list2. diff --git a/test-suite/failure/Tauto.v b/test-suite/failure/Tauto.v index 8af5c310a2..fb9a27bb0a 100644 --- a/test-suite/failure/Tauto.v +++ b/test-suite/failure/Tauto.v @@ -1,10 +1,10 @@ -(***********************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* nat) -> t. diff --git a/test-suite/failure/redef.v b/test-suite/failure/redef.v index d461478430..8f3aedacec 100644 --- a/test-suite/failure/redef.v +++ b/test-suite/failure/redef.v @@ -1,9 +1,9 @@ -(***********************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* nat->Prop. diff --git a/test-suite/success/eqdecide.v b/test-suite/success/eqdecide.v index 434ec5464e..f826df9a42 100644 --- a/test-suite/success/eqdecide.v +++ b/test-suite/success/eqdecide.v @@ -1,10 +1,10 @@ -(***********************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* T. diff --git a/test-suite/success/fix.v b/test-suite/success/fix.v index c26cb16f92..374029bba9 100644 --- a/test-suite/success/fix.v +++ b/test-suite/success/fix.v @@ -1,10 +1,10 @@ -(***********************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* (T U). End S. diff --git a/test-suite/success/induct.v b/test-suite/success/induct.v index 6ab77e0088..9ae498d2da 100644 --- a/test-suite/success/induct.v +++ b/test-suite/success/induct.v @@ -1,10 +1,10 @@ -(***********************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* ? | (S p) => ? end. (* cannot be executed *) Abort. -(***********************************************************************) +(************************************************************************) Lemma T : nat. @@ -46,7 +46,7 @@ Refine (S ?). Abort. -(***********************************************************************) +(************************************************************************) Lemma essai2 : (x:nat)x=x. @@ -79,7 +79,7 @@ Refine Fix f{f/1 : (x:nat)x=x := Abort. -(***********************************************************************) +(************************************************************************) Lemma essai : nat. @@ -94,7 +94,7 @@ Refine (f ? O). Abort. -(***********************************************************************) +(************************************************************************) Parameter P : nat -> Prop. @@ -115,7 +115,7 @@ Refine (exist nat [x:nat](x=(S O)) (S O) ?). Abort. -(***********************************************************************) +(************************************************************************) Lemma essai : (n:nat){ x:nat | x=(S n) }. -- cgit v1.2.3