let mk_variant_properties kf s ca v =
let vpos_id = WpPropId.mk_var_pos_id kf s ca in
let vdecr_id = WpPropId.mk_var_decr_id kf s ca in
let loc = v.term_loc in
let lhead = Clabels.loop_head_label s in
let vhead = Logic_const.tat ~loc (v, lhead) in
let zero = Cil.lzero ~loc () in
let vpos = Logic_const.prel ~loc (Rle, zero, vhead) in
let vdecr = Logic_const.prel ~loc (Rlt, v, vhead) in
(vpos_id, vpos), (vdecr_id, vdecr)