let a be Domain-Sequence; :: thesis: for p being FinSequence holds
( p is UnOps of a iff ( len p = len a & ( for i being Element of dom a holds p . i is UnOp of (a . i) ) ) )
let p be FinSequence; :: thesis: ( p is UnOps of a iff ( len p = len a & ( for i being Element of dom a holds p . i is UnOp of (a . i) ) ) )
( dom p = dom a iff len p = len a ) by FINSEQ_3:29;
hence ( p is UnOps of a iff ( len p = len a & ( for i being Element of dom a holds p . i is UnOp of (a . i) ) ) ) by Def7; :: thesis: verum