Skip to content
Snippets Groups Projects

WIP: parameterise operators with boolean result by the result integer type

12 files
+ 170
150
Compare changes
  • Side-by-side
  • Inline

Files

@@ -300,7 +300,7 @@ let pp_code : string -> import list -> Coq_ast.t pp =
let pp fmt = Format.fprintf ff fmt in
(* Printing some header. *)
pp "@[<v 0>From refinedc.lang Require Export notation.@;";
pp "@[<v 0>From refinedc.lang Require Export notation c_notation.@;";
pp "From refinedc.lang Require Import tactics.@;";
pp "From refinedc.typing Require Import annotations.@;";
List.iter (pp_import ff) imports;
Loading