exception NotImplemented;;
let print_sequent (metano,context,goal) =
- let module P = ProofEngine in
- "\n" ^
- let (output,pretty_printer_context_of_context) = print_context context in
- output ^
- "---------------------- ?" ^ string_of_int metano ^ "\n" ^
- CicPp.pp goal pretty_printer_context_of_context
+ "\n" ^
+ let (output,pretty_printer_context_of_context) = print_context context in
+ output ^
+ "---------------------- ?" ^ string_of_int metano ^ "\n" ^
+ CicPp.pp goal pretty_printer_context_of_context
;;
end
;;