| A.Num (s, _) -> current_size + String.length s
| A.Sort _ -> current_size + 4 (* sort name *)
| A.Symbol (s,_) -> current_size + String.length s
+
+ | A.UserInput -> current_size
;;
let is_big t =
| A.Symbol (s, _) ->
Box.Text([],s)
+ | A.UserInput -> Box.Text([],"")
+
and aux_option ~tail = function
None -> Box.Text([],"_")
| Some ast -> ast2box ~tail ast
| A.Sort `Type -> P.Mtext ([], "Type")
| A.Sort `CProp -> P.Mtext ([], "CProp")
| A.Implicit -> P.Mtext([], "?")
+ | A.UserInput -> P.Mtext([], "")
| A.Appl [] -> assert false
| A.Appl ((hd::tl) as l) ->
let rec find_symbol idref = function