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