fact: Fixpoint simplify_tree (t : RTree) := match t with | rtNot rtTrue => rtFalse | rtNot rtFalse => rtTrue | rtAnd t1 t2 => match simplify_tree t1, simplify_tree t2 with | rtTrue, t => t | rtFalse, _ => rtFalse | t, rtTrue => t | _, rtFalse => rtFalse | t1, t2 => rtAnd t1 t2 end | rtOr t1 t2 => match simplify_tree t1, simplify_tree t2 with | rtTrue, _ => rtTrue | rtFalse, t => t | _, rtTrue => rtTrue | t, rtFalse => t | t1, t2 => rtOr t1 t2 end | _ => t end.
imports: Coq(ZArith Reals List Lia) Flocq(Core) Gappa_library