Module BodyProofOrder <: Orders.TotalLeBool.
Definition t := semax_body_proof.
Definition leb := fun x y : semax_body_proof=> Pos.leb (ident_of_proof x) (ident_of_proof y).

Theorem leb_total : forall a1 a2, leb a1 a2 = true \/ leb a2 a1 = true.