fact: Definition remove_unknown_func (pos : bool) a := match a with | raBound l _ u => match l with | Some (reFloat2 _ _) | None => match u with | Some (reFloat2 _ _) | None => if pos then rtAtom a else rtNot (rtAtom a) | _ => rtTrue end | _ => rtTrue end | raRel _ _ (reFloat2 _ _) (reFloat2 _ _) => if pos then rtAtom a else rtNot (rtAtom a) | raEq _ _ => if pos then rtAtom a else rtNot (rtAtom a) | _ => rtTrue end.
imports: Coq(ZArith Reals List Lia) Flocq(Core) Gappa_library