fact: Definition eq_sel_sym ti te a b sela selb := match get_atom sela, get_atom selb with | Abop (BO_select ti1 te1) a' d1, Abop (BO_select ti2 te2) b' d2 => Typ.eqb ti ti1 && Typ.eqb ti ti2 && Typ.eqb te te1 && Typ.eqb te te2 && (a =? a') && (b =? b') && (d1 =? d2) && match get_atom d1 with | Abop (BO_diffarray ti3 te3) a3 b3 => Typ.eqb ti ti3 && Typ.eqb te te3 && (a3 =? a) && (b3 =? b) | _ => false end | _, _ => false end.
imports: Bool List Int63 PArray Psatz ZArith Misc State SMT_terms FArray SMT_classes