theorem Th12:
  p is UnOps of a iff len p = len a & for i holds p.i is UnOp of a .i
proof
  dom p = dom a iff len p = len a by FINSEQ_3:29;
  hence thesis by Def7;
end;
