∀A:Type. ∀a:algebra_sig{i:l}(A).  (a.le ∈ a.car ⟶ a.car ⟶ 𝔹)
{ ModulePiTac 10 ``alg_car alg_eq alg_le alg_plus alg_zero alg_minus alg_times alg_one alg_div alg_act`` }