proposition: Lemma meet_sl_mor_preserving: OrderPreserving f.
proof: Proof. intros x y E. apply meet_sl_le_spec in E. apply meet_sl_le_spec. rewrite <-preserves_meet. apply ap, E. Qed.
imports: HoTT.Classes.interfaces.abstract_algebra HoTT.Classes.interfaces.orders HoTT.Classes.orders.semirings HoTT.Classes.theory.lattices