fact: Fixpoint bsimp (e : bexpr) := match e with | Bnot e1 => not (bsimp e1) | Band e1 e2 => and (bsimp e1) (bsimp e2) | Bless a1 a2 => less a1 a2 | _ => e end.
imports: Hammer(Tactics) Arith ZArith List Lia Hammer(Hints) Reals Lra Hammer(Reflect) Nat Psatz String