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