1 2 3 4 5 6 7 8
open Camlcoq open RTL let function_id (f : coq_function) : Z.t = Z.of_uint 0;; let branch_id (f_id : Z.t) (node : P.t) = Z.of_uint 0;;