]> matita.cs.unibo.it Git - helm.git/commitdiff
porting to new syntax
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Thu, 2 Dec 2010 16:02:35 +0000 (16:02 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Thu, 2 Dec 2010 16:02:35 +0000 (16:02 +0000)
matita/matita/nlibrary/Plogic/connectives.ma
matita/matita/nlibrary/Plogic/equality.ma

index bf17771fb9890a632f0f49f2b8e223837712f36a..dd3b967cbac2a3efdf338350c24c61c0f46a7c9b 100644 (file)
 
 include "Plogic/equality.ma".
 
-ninductive True: Prop ≝  
+inductive True: Prop ≝  
 I : True.
 
-default "true" cic:/matita/basics/connectives/True.ind.
-
-ninductive False: Prop ≝ .
-
-default "false" cic:/matita/basics/connectives/False.ind.
+inductive False: Prop ≝ .
 
 (*
 ndefinition Not: Prop → Prop ≝
 λA. A → False. *)
 
-ninductive Not (A:Prop): Prop ≝
+inductive Not (A:Prop): Prop ≝
 nmk: (A → False) → Not A.
 
 interpretation "logical not" 'not x = (Not x).
 
-ntheorem absurd : ∀ A:Prop. A → ¬A → False.
-#A; #H; #Hn; nelim Hn;/2/; nqed.
+theorem absurd : ∀ A:Prop. A → ¬A → False.
+#A; #H; #Hn; elim Hn;/2/; qed.
 
 (*
 ntheorem absurd : ∀ A,C:Prop. A → ¬A → C.
 #A; #C; #H; #Hn; nelim (Hn H).
 nqed. *)
 
-ntheorem not_to_not : ∀A,B:Prop. (A → B) → ¬B →¬A.
-/4/; nqed.
+theorem not_to_not : ∀A,B:Prop. (A → B) → ¬B →¬A.
+/4/; qed.
 
-ninductive And (A,B:Prop) : Prop ≝
+inductive And (A,B:Prop) : Prop ≝
     conj : A → B → And A B.
 
 interpretation "logical and" 'and x y = (And x y).
 
-ntheorem proj1: ∀A,B:Prop. A ∧ B → A.
-#A; #B; #AB; nelim AB; //.
-nqed.
+theorem proj1: ∀A,B:Prop. A ∧ B → A.
+#A; #B; #AB; elim AB; //.
+qed.
 
-ntheorem proj2: ∀ A,B:Prop. A ∧ B → B.
-#A; #B; #AB; nelim AB; //.
-nqed.
+theorem proj2: ∀ A,B:Prop. A ∧ B → B.
+#A; #B; #AB; elim AB; //.
+qed.
 
-ninductive Or (A,B:Prop) : Prop ≝
+inductive Or (A,B:Prop) : Prop ≝
      or_introl : A → (Or A B)
    | or_intror : B → (Or A B).
 
 interpretation "logical or" 'or x y = (Or x y).
 
-ndefinition decidable : Prop → Prop ≝ 
+definition decidable : Prop → Prop ≝ 
 λ A:Prop. A ∨ ¬ A.
 
-ninductive ex (A:Type[0]) (P:A → Prop) : Prop ≝
+inductive ex (A:Type[0]) (P:A → Prop) : Prop ≝
     ex_intro: ∀ x:A. P x →  ex A P.
     
 interpretation "exists" 'exists x = (ex ? x).
 
-ninductive ex2 (A:Type[0]) (P,Q:A \to Prop) : Prop ≝
+inductive ex2 (A:Type[0]) (P,Q:A \to Prop) : Prop ≝
     ex_intro2: ∀ x:A. P x → Q x → ex2 A P Q.
 
-ndefinition iff :=
+definition iff :=
  λ A,B. (A → B) ∧ (B → A).
 
 interpretation "iff" 'iff a b = (iff a b).  
index 2bbd140e839c7389ce2ade37f3da5e764242b52b..615151d1494202ac12ebc754fda2972a79361257 100644 (file)
@@ -49,7 +49,7 @@ qed.
 
 theorem sym_eq: ∀A:Type[2].∀x,y:A. x = y → y = x.
 #A; #x; #y; #Heq; apply (rewrite_l A x (λz.z=x)); 
-[ @ | assumption ]
+[ % | assumption ]
 qed.
 
 theorem rewrite_r: ∀A:Type[2].∀x.∀P:A → Prop. P x → ∀y. y = x → P y.