fact: Fixpoint beq_nat (x y : nat) := match x, y with | 0, 0 => true | S x', S y' => beq_nat x' y' | _, _ => false end.
imports: Coq(Morphisms Euclid Peano Lia) Coq(Compare) CoLoR(LogicUtil EqUtil BoolUtil NatCompat RelUtil)