- init_cache_and_tables rewritten using the automation_cache

[helm.git] / helm / software / matita / library / didactic / exercises / natural_deduction1.ma

diff --git a/helm/software/matita/library/didactic/exercises/natural_deduction1.ma b/helm/software/matita/library/didactic/exercises/natural_deduction1.ma
index 8f90dd67c20305403c0dda77b0e63f20b1d9ba2e..f4508923730b134f904b4f89baa401b4c83fc506 100644 (file)
--- a/helm/software/matita/library/didactic/exercises/natural_deduction1.ma
+++ b/helm/software/matita/library/didactic/exercises/natural_deduction1.ma
@@ -1,3 +1,17 @@
+(**************************************************************************)
+(*       ___                                                             *)
+(*      ||M||                                                             *)
+(*      ||A||       A project by Andrea Asperti                           *)
+(*      ||T||                                                             *)
+(*      ||I||       Developers:                                           *)
+(*      ||T||       A.Asperti, C.Sacerdoti Coen,                          *)
+(*      ||A||       E.Tassi, S.Zacchiroli                                 *)
+(*      \   /                                                             *)
+(*       \ /        This file is distributed under the terms of the       *)
+(*        v         GNU Lesser General Public License Version 2.1         *)
+(*                                                                        *)
+(**************************************************************************)
+
 (* Istruzioni: 
 
      http://mowgli.cs.unibo.it/~tassi/exercise-natural_deduction.html 
@@ -54,7 +68,7 @@ apply rule (⇒_i [h1] ((G ∧ L ⇒ E) ⇒ F ∧ L ⇒ E));
 apply rule (⇒_i [h2] (F ∧ L ⇒ E));
 apply rule (⇒_i [h3] (E));
 apply rule (∨_e (G∨¬G) [h4] (E) [h4] (E));
-       [ apply rule (lem EM);
+       [ apply rule (lem 0 EM);
        | apply rule (⇒_e (G∧L⇒E) (G∧L));
            [ apply rule (discharge [h2]);
            | apply rule (∧_i (G) (L));
@@ -123,7 +137,7 @@ apply rule (⇒_i [h2] ((¬G ⇒ ¬H) ⇒ H ⇒ E));
 apply rule (⇒_i [h3] (H ⇒ E));
 apply rule (⇒_i [h4] (E));
 apply rule (∨_e (G∨¬G) [h5] (E) [h5] (E));
-       [apply rule (lem EM);
+       [apply rule (lem 0 EM);
        | apply rule (∨_e (E∨F) [h6] (E) [h6] (E));
           [ apply rule (⇒_e (H ⇒ E∨F) (H));
               [ apply rule (discharge [h2]);
@@ -182,4 +196,4 @@ apply rule (∨_e (G∨¬L) [h6] (⊥) [h6] (⊥));
            ]
        ]
 (*END*)
-qed.
\ No newline at end of file
+qed.