let mk_variant_properties s v =
let loc = v.term_loc in
let lhead = Cil2cfg.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, vdecr