aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/success
diff options
context:
space:
mode:
authorGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2005-03-17 12:04:11 +0000
committerGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2005-03-17 12:04:11 +0000
commit31d6a29be147f758a3297e16111fa521bfe7fc68 (patch)
treee80ad433df51778a01909cfe7d3ce5fd217f4316 /test-suite/success
parent05ebcf5af9f63fcda2298a03019187299a711a68 (diff)
Nouvelle syntaxe 'with' des modules non gérée en v7
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6850 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success')
-rw-r--r--test-suite/success/Mod_strengthen.v64
1 files changed, 0 insertions, 64 deletions
diff --git a/test-suite/success/Mod_strengthen.v b/test-suite/success/Mod_strengthen.v
deleted file mode 100644
index a472e698f..000000000
--- a/test-suite/success/Mod_strengthen.v
+++ /dev/null
@@ -1,64 +0,0 @@
-Module Type Sub.
- Axiom Refl1 : (x:nat)(x=x).
- Axiom Refl2 : (x:nat)(x=x).
- Axiom Refl3 : (x:nat)(x=x).
- Inductive T : Set := A : T.
-End Sub.
-
-Module Type Main.
- Declare Module M:Sub.
-End Main.
-
-
-Module A <: Main.
- Module M <: Sub.
- Lemma Refl1 : (x:nat) x=x.
- Intros;Reflexivity.
- Qed.
- Axiom Refl2 : (x:nat) x=x.
- Lemma Refl3 : (x:nat) x=x.
- Intros;Reflexivity.
- Defined.
- Inductive T : Set := A : T.
- End M.
-End A.
-
-
-
-(* first test *)
-
-Module F[S:Sub].
- Module M:=S.
-End F.
-
-Module B <: Main with Module M:=A.M := F A.M.
-
-
-
-(* second test *)
-
-Lemma r1 : (A.M.Refl1 == B.M.Refl1).
-Proof.
- Reflexivity.
-Qed.
-
-Lemma r2 : (A.M.Refl2 == B.M.Refl2).
-Proof.
- Reflexivity.
-Qed.
-
-Lemma r3 : (A.M.Refl3 == B.M.Refl3).
-Proof.
- Reflexivity.
-Qed.
-
-Lemma t : (A.M.T == B.M.T).
-Proof.
- Reflexivity.
-Qed.
-
-Lemma a : (A.M.A == B.M.A).
-Proof.
- Reflexivity.
-Qed.
-