∀[T:Type]. ∀eq:EqDecider(T). ∀x,y:Point(free-dist-lattice(T; eq)). (x ≤ y
⇐⇒ fset-ac-le(eq;x;y))
{ Intros }
1. [T] : Type
2. eq : EqDecider(T)@i
3. x : Point(free-dist-lattice(T; eq))@i
4. y : Point(free-dist-lattice(T; eq))@i
⊢ x ≤ y
⇐⇒ fset-ac-le(eq;x;y)