Release 0.5.9.

[helm.git] / helm / software / components / grafite / grafiteAstPp.ml

diff --git a/helm/software/components/grafite/grafiteAstPp.ml b/helm/software/components/grafite/grafiteAstPp.ml
index 5f89df9d6ebca083064425ca71598719650905b0..0db8efc1aa9f2eb020cf8a0d8fdc64e067c58a7d 100644 (file)
--- a/helm/software/components/grafite/grafiteAstPp.ml
+++ b/helm/software/components/grafite/grafiteAstPp.ml
@@ -77,10 +77,10 @@ let opt_string_pp = function
 let pp_auto_params ~term_pp (univ, params) = 
    String.concat " " 
      (List.map (fun (k,v) -> if v <> "" then k ^ "=" ^ v else k) params) ^
-     match univ with
-       | None -> ""
-       | Some l -> (if params <> [] then " " else "") ^ "by " ^ 
-          String.concat " " (List.map term_pp l)
+   if univ <> [] then 
+     (if params <> [] then " " else "") ^ "by " ^ 
+     String.concat " " (List.map term_pp univ)
+   else ""
 ;;
 
 let pp_just ~term_pp =
@@ -96,13 +96,10 @@ let rec pp_ntactic ~map_unicode_to_tex =
   pp_tactic_pattern ~map_unicode_to_tex ~lazy_term_pp ~term_pp in
  function
   | NApply (_,t) -> "napply " ^ CicNotationPp.pp_term t
-  | NSmartApply (_,t) -> "fixme"
-  | NAuto (_,(None,flgs)) ->
-      "nautobatch" ^
-        String.concat " " (List.map (fun a,b -> a ^ "=" ^ b) flgs)
-  | NAuto (_,(Some l,flgs)) ->
-      "nautobatch" ^ " by " ^
-         (String.concat "," (List.map CicNotationPp.pp_term l)) ^
+  | NAuto (_,(l,flgs)) ->
+      "nauto" ^ 
+        (if l <> [] then (" by " ^
+         (String.concat "," (List.map CicNotationPp.pp_term l))) else "") ^
         String.concat " " (List.map (fun a,b -> a ^ "=" ^ b) flgs)
   | NCases (_,what,where) -> "ncases " ^ CicNotationPp.pp_term what ^
       assert false ^ " " ^ assert false
@@ -116,13 +113,11 @@ let rec pp_ntactic ~map_unicode_to_tex =
   | NCut (_,t) -> "ncut " ^ CicNotationPp.pp_term t
 (*| NDiscriminate (_,t) -> "ndiscriminate " ^ CicNotationPp.pp_term t
   | NSubst (_,t) -> "nsubst " ^ CicNotationPp.pp_term t *)
-  | NDestruct (_,dom,skip) -> "ndestruct ..." 
+  | NDestruct _ -> "ndestruct"
   | NElim (_,what,where) -> "nelim " ^ CicNotationPp.pp_term what ^
       assert false ^ " " ^ assert false
   | NId _ -> "nid"
   | NIntro (_,n) -> "#" ^ n
-  | NInversion (_,what,where) -> "ninversion " ^ CicNotationPp.pp_term what ^
-      assert false ^ " " ^ assert false
   | NLApply (_,t) -> "lapply " ^ CicNotationPp.pp_term t
   | NRewrite (_,dir,n,where) -> "nrewrite " ^
      (match dir with `LeftToRight -> ">" | `RightToLeft -> "<") ^
@@ -377,14 +372,14 @@ let pp_coercion ~term_pp t do_composites arity saturations=
     (term_pp t) arity saturations
     (if do_composites then "" else "nocomposites")
 
-let pp_ncommand ~obj_pp = function
+let pp_ncommand = function
   | UnificationHint (_,t, n) -> 
       "unification hint " ^ string_of_int n ^ " " ^ CicNotationPp.pp_term t
   | NDiscriminator (_,_)
   | NInverter (_,_,_,_,_)
+  | NObj (_,_)
   | NUnivConstraint (_) -> "not supported"
   | NCoercion (_) -> "not supported"
-  | NObj (_,obj) -> obj_pp obj
   | NQed (_) -> "nqed"
   | NCopy (_,name,uri,map) -> 
       "copy " ^ name ^ " from " ^ NUri.string_of_uri uri ^ " with " ^ 
@@ -457,9 +452,7 @@ let pp_executable ~map_unicode_to_tex ~term_pp ~lazy_term_pp ~obj_pp =
      pp_non_punctuation_tactical tac
      ^ pp_punctuation_tactical punct
   | Command (_, cmd) -> pp_command ~term_pp ~obj_pp cmd ^ "."
-  | NCommand (_, cmd) -> 
-      let obj_pp = Obj.magic obj_pp in
-      pp_ncommand ~obj_pp cmd ^ "."
+  | NCommand (_, cmd) -> pp_ncommand cmd ^ "."
                       
 let pp_comment ~map_unicode_to_tex ~term_pp ~lazy_term_pp ~obj_pp =
   function