let aorai_assigns loc =
  let mk_from base =
    let zone =
      if Aorai_option.Deterministic.get () then
        Logic_const.term ~loc (TLval base) (Cil.typeOfTermLval base)
      else
        let intv = TIndex (trange ~loc (None,None), TNoOffsetin
        let tlv = Cil.addTermOffsetLval intv base in
        Logic_const.term ~loc (TLval tlv) (Cil.typeOfTermLval tlv)
    in (Logic_const.new_identified_term zone, FromAny)
  in
  Writes
    [ mk_from (host_state_term ());
      (* mk_from (host_stateOld_term ());
         mk_from (host_trans_term ()); *)

      (Logic_const.new_identified_term
         (Logic_const.tvar ~loc
            (Data_for_aorai.get_logic_var Data_for_aorai.curOpStatus)),
       FromAny);
      (Logic_const.new_identified_term
         (Logic_const.tvar ~loc
            (Data_for_aorai.get_logic_var Data_for_aorai.curOp)),
       FromAny)
    ]