|2: simplify; apply (le_transitive ???? Lax Lxb);
|3: simplify; repeat split; try assumption;
[1: apply (le_transitive ???? Lax Lxb);
- |2: (* prove le_reflexive *) intro X; cases (os_coreflexive ?? X)]]
+ |2: intro X; cases (os_coreflexive ?? X)]]
|1: apply HW; exists[apply l] simplify; split;
[1: apply (us_phi1 ?? Gw); unfold; apply eq_reflexive;
|2: apply Hma; rewrite > sym_plus in H1; apply (le_w_plus mb); assumption;]]