]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/nlibrary/logic/destruct_bb.ma
Release 0.5.9.
[helm.git] / helm / software / matita / nlibrary / logic / destruct_bb.ma
index 308f8bebeb91ed3b554cca708bb4e6fbd0eb1124..c64b651180076612c3c3fe27b6b699ac51c50018 100644 (file)
 
 include "logic/equality.ma".
 
-ninductive unit: Type[0] ≝ k: unit.
-
-ninductive bool: unit → Type[0] ≝ true : bool k | false : bool k.
-
-nlemma foo: true = false → False. #H; ndestruct;
-nqed.
-
 (* nlemma prova : ∀T:Type[0].∀a,b:T.∀e:a = b.
                ∀P:∀x,y:T.x=y→Prop.P a a (refl T a) → P a b e.
 #T;#a;#b;#e;#P;#H;