fact: Definition get_eq (l:_lit) (f : Atom.hatom -> Atom.hatom -> C.t) := if Lit.is_pos l then match get_form (Lit.blit l) with | Form.Fatom xa => match get_atom xa with | Atom.Abop (Atom.BO_eq _) a b => f a b | _ => C._true end | _ => C._true end else C._true.
imports: Bool List Int63 Ring63 PArray ZArith Misc State SMT_terms Euf RingMicromega ZMicromega Coq.micromega.Tauto Psatz