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 []