X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Fpts_dummy_new%2Fsubject.ma;h=57619eba60ad34442fad3e829666652d1249f8c2;hb=8db3579bec4d9a97af526f95a179587a2fbfe3e3;hp=e33364f6bfb40c116f3854f7726a764ee789592f;hpb=46e87acb755894f9234191d675eeb5db4f5b930b;p=helm.git

diff --git a/matita/matita/lib/pts_dummy_new/subject.ma b/matita/matita/lib/pts_dummy_new/subject.ma
index e33364f6b..57619eba6 100644
--- a/matita/matita/lib/pts_dummy_new/subject.ma
+++ b/matita/matita/lib/pts_dummy_new/subject.ma
@@ -9,8 +9,8 @@
      \ /      
       V_______________________________________________________________ *)
 
-include "lambdaN/reduction.ma".
-include "lambdaN/inversion.ma". 
+include "pts_dummy_new/reduction.ma".
+include "pts_dummy_new/inversion.ma". 
 
 (*
 inductive T : Type[0] ≝
@@ -51,7 +51,7 @@ theorem type_of_type: ∀P,G,A,B. G ⊢_{P} A : B → (∀i. B ≠ Sort i) →
   |#G1 #A #i #t1 #_ #P @(ex_intro … i) @(weak … t1 t1)
   |#G1 #A #B #C #i #t1 #t2 #H1 #H2 #H3 (cases (H1 ?) )
     [#i #Bi @(ex_intro … i) @(weak … Bi t2)
-    |#i @(not_to_not … (H3 i)) //
+    |#i @(not_to_not … (H3 i)) /2 width=2/
     ]
   |#G1 #A #B #i #j #k #h #t1 #t2 #_ #_ #H3 @False_ind /2/
   |#G1 #A #B #C #D #t1 #t2 #H1 #H2 #H3 cases (H1 ?);