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

( 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