(String.concat " " (List.map string_of_int l))
| NUnfocus _ -> "##unfocus"
| NSkip _ -> "##skip"
- | NTry (_,tac) -> "ntry (" ^ pp_ntactic ~map_unicode_to_tex tac ^ ")"
+ | NTry (_,tac) -> "ntry " ^ pp_ntactic ~map_unicode_to_tex tac
| NAssumption _ -> "nassumption"
+ | NBlock (_,l) ->
+ "(" ^ String.concat " " (List.map (pp_ntactic ~map_unicode_to_tex) l)^ ")"
+ | NRepeat (_,t) -> "nrepeat " ^ pp_ntactic ~map_unicode_to_tex t
;;
let rec pp_tactic ~map_unicode_to_tex ~term_pp ~lazy_term_pp =
"unification hint " ^ string_of_int n ^ " " ^ CicNotationPp.pp_term t
| NObj (_,_)
| NUnivConstraint (_) -> "not supported"
+ | NCoercion (_) -> "not supported"
| NQed (_) -> "nqed"
let pp_command ~term_pp ~obj_pp = function