X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_tactics%2FnTactics.ml;h=4575133677029d72f4344657d468e0e54c46d658;hb=8a5c30a914d7ff665218b31853c6fb4bcf58aa08;hp=721d9165b7d32d0388ba084d32fa27b6ff672125;hpb=d7aca3eacb4bd8dc56223098f92e5370c82f92ff;p=helm.git

diff --git a/matita/components/ng_tactics/nTactics.ml b/matita/components/ng_tactics/nTactics.ml
index 721d9165b..457513367 100644
--- a/matita/components/ng_tactics/nTactics.ml
+++ b/matita/components/ng_tactics/nTactics.ml
@@ -263,7 +263,7 @@ let distribute_tac tac (status : #tac_status) =
        ((status#set_stack stack)#set_obj(sn:>lowtac_status)#obj)#set_pstatus sn
 ;;
 
-let atomic_tac htac: #tac_status as 'a -> 'a = distribute_tac (exec htac) ;;
+let atomic_tac htac: (#tac_status as 'a) -> 'a = distribute_tac (exec htac) ;;
 
 let repeat_tac t s = 
   let rec repeat t (status : #tac_status as 'a) : 'a = 
@@ -546,10 +546,7 @@ let pp_cl cl =
     pp_aux cl
 ;;
 
-let pp_indtyinfo ity = "leftno: " ^ (string_of_int ity.leftno) ^ ", consno: " ^ (string_of_int
-                                                                                   ity.consno) ^ ", rightno: " ^
-                       (string_of_int ity.rightno) ^ ", reference: " ^ (pp_ref ity.reference) ^ ",
-                       cl: " ^ (pp_cl ity.cl);;
+let pp_indtyinfo ity = "leftno: " ^ (string_of_int ity.leftno) ^ ", consno: " ^ (string_of_int ity.consno) ^ ", rightno: " ^ (string_of_int ity.rightno) ^ ", reference: " ^ (pp_ref ity.reference) ^ ", cl: " ^ (pp_cl ity.cl);;
 
 let elim_tac ~what:(txt,len,what) ~where = 
   let what = txt, len, Ast.Appl [what; Ast.Implicit `Vector] in
@@ -663,7 +660,7 @@ let constructor_tac ?(num=1) ~args = distribute_tac (fun status goal ->
   let t = 
     if args = [] then Ast.NRef ref else
     Ast.Appl (HExtlib.list_concat ~sep:[Ast.Implicit `Vector]
-      ([Ast.NRef ref] :: List.map (fun _,_,x -> [x]) args))
+      ([Ast.NRef ref] :: List.map (fun (_,_,x) -> [x]) args))
   in
   exec (apply_tac ("",0,t)) status goal)
 ;;