theorem elssuni (A: set) (a: nat): $ a e. A -> a C_ sUnion A $;
a e. A -> a1 e. a -> a1 e. sUnion A
a e. A -> A. a1 (a1 e. a -> a1 e. sUnion A)
a e. A -> a C_ sUnion A