diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-03-17 12:04:11 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-03-17 12:04:11 +0000 |
commit | 31d6a29be147f758a3297e16111fa521bfe7fc68 (patch) | |
tree | e80ad433df51778a01909cfe7d3ce5fd217f4316 /test-suite/success | |
parent | 05ebcf5af9f63fcda2298a03019187299a711a68 (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.v | 64 |
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. - |