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