| NApply (_,t) -> "napply " ^ CicNotationPp.pp_term t
| NSmartApply (_,t) -> "fixme"
| NAuto (_,(None,flgs)) ->
- "nauto" ^
+ "nautobatch" ^
String.concat " " (List.map (fun a,b -> a ^ "=" ^ b) flgs)
| NAuto (_,(Some l,flgs)) ->
- "nauto" ^ " by " ^
+ "nautobatch" ^ " by " ^
(String.concat "," (List.map CicNotationPp.pp_term l)) ^
String.concat " " (List.map (fun a,b -> a ^ "=" ^ b) flgs)
| NCases (_,what,where) -> "ncases " ^ CicNotationPp.pp_term what ^