fact: Definition get_eq (x:var) (f : int -> int -> C.t) := match get_form x 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.
imports: Bool List Int63 PArray State SMT_terms