let userdef_ref_signature mem : ( F.var * logic_var * formal ) list =
let s = "[userdef_ref_signature]" in
debug "%s" s;
Lmap.fold
(fun lv param signature ->
debug "%s of %a" s !Ast_printer.d_logic_var lv ;
(param.bref_var , lv , param.bref_formal) :: signature
) mem.formals []