(* "le" *)

Definition counted_cmp (x y: T): SimplyProfiled bool := (1, cmp x y).

Lemma common_arith (n n3 n0 n1 n2: nat) (l0: n3 + n0 <= n) (p: n1 <= sqrd n3) (p0: n2 <= sqrd n0): n + n2 + n + n1 <= sqrd n + n + n + 1.