Section LOWER_SEMILATTICE.
Context {D : Type} {PROSET : isProset D} {LOWER_SEMILATTICE : isLowerSemilattice D (PROSET := PROSET)}.

Lemma meet_lattice_is_infimum (x1 : D) (x2 : D)
: is_infimum_of (meet_lattice x1 x2) (E.fromList [x1; x2]).