let userdef_ref_apply (_:mem) (_:formal) (_:loc) : value = 
    Wp_parameters.fatal "[userdef_ref_apply] of model Hoare"