fact: Definition less (a1 a2 : aexpr) := match a1, a2 with | Nval n1, Nval n2 => Bval (n1 <? n2) | _, _ => Bless a1 a2 end.
imports: Hammer(Tactics) Arith ZArith List Lia Hammer(Hints) Reals Lra Hammer(Reflect) Nat Psatz String