theorem Arrayeq1 (_A1 _A2: set) (n: nat): $ _A1 == _A2 -> Array _A1 n == Array _A2 n $;
_A1 == _A2 -> _A1 == _A2
_A1 == _A2 -> Array _A1 n == Array _A2 n