X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fnlibrary%2Flogic%2Fdestruct_bb.ma;h=308f8bebeb91ed3b554cca708bb4e6fbd0eb1124;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=c64b651180076612c3c3fe27b6b699ac51c50018;hpb=2b98af47f4359ca20b42e52285c7ff4a3bd12f02;p=helm.git

diff --git a/helm/software/matita/nlibrary/logic/destruct_bb.ma b/helm/software/matita/nlibrary/logic/destruct_bb.ma
index c64b65118..308f8bebe 100644
--- a/helm/software/matita/nlibrary/logic/destruct_bb.ma
+++ b/helm/software/matita/nlibrary/logic/destruct_bb.ma
@@ -14,6 +14,13 @@
 
 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;