proposition: Lemma max_lub : forall m p k n : BinNums.Z, BinInt.Z.ge p m -> BinInt.Z.le n p -> BinInt.Z.le (BinInt.Z.max n m) p.
proof: Proof. hammer. Restart. srun eauto use: BinInt.Z.max_lub, BinInt.Z.ge_le. Qed.
imports: Hammer(Hammer) Arith