let inv_of_loop_from s n (output, inputs) =
let output = build_elem ~addrlab:Logic_const.here_label
~mlab:Logic_const.here_label output.it_content
in
let pre_loop_lab = Clabels.mk_logic_label s in
let inputs =match inputs with
| FromAny -> None
| From inputs ->
let mk_input x = build_elem ~addrlab:Logic_const.here_label
~mlab:pre_loop_lab x.it_content
in
let inputs = List.map mk_input inputs in
Some inputs
in
let fi_name = mk_loop_implicit_fun_name s n in
let p_eq = build_fimpl_eq fi_name output inputs in
p_eq