for U1, U2 being Universal_Algebra st U1,U2 are_similar holds
UAStr(# [: the carrier of U1, the carrier of U2:],(Opers (U1,U2)) #) is strict Universal_Algebra