proposition: Lemma join_sl_mor_reflecting `{!IsInjective f}: OrderReflecting f.
proof: Proof. intros x y E. apply join_sl_le_spec in E. apply join_sl_le_spec. rewrite <-preserves_join in E. apply (injective f). assumption. Qed.
imports: HoTT.Classes.interfaces.abstract_algebra HoTT.Classes.interfaces.orders HoTT.Classes.orders.semirings HoTT.Classes.theory.lattices