fact: Fixpoint beval (b : bexp) : bool := match b with | BTrue => true | BFalse => false | BEq a1 a2 => (aeval a1) =? (aeval a2) | BNeq a1 a2 => negb ((aeval a1) =? (aeval a2)) | BLe a1 a2 => (aeval a1) <=? (aeval a2) | BGt a1 a2 => negb ((aeval a1) <=? (aeval a2)) | BNot b1 => negb (beval b1) | BAnd b1 b2 => andb (beval b1) (beval b2) end.
imports: Coq(Bool.Bool) Coq(Init.Nat) Coq(Arith.Arith) Coq(Arith.EqNat) Coq(Lia) Coq(Lists.List) Coq(Strings.String) LF(Maps)