
theorem Th101:
  for x,y,z being set holds [<*x,y*>,xor2c] in InnerVertices
BitGFA2Str(x,y,z) & GFA2AdderOutput(x,y,z) in InnerVertices BitGFA2Str(x,y,z) &
  [<*x,y*>,and2a] in InnerVertices BitGFA2Str(x,y,z) & [<*y,z*>,and2c] in
InnerVertices BitGFA2Str(x,y,z) & [<*z,x*>,nor2] in InnerVertices BitGFA2Str(x
  ,y,z) & GFA2CarryOutput(x,y,z) in InnerVertices BitGFA2Str(x,y,z)
proof
  let x,y,z be set;
  set f1 = and2a, f2 = and2c, f3 = nor2;
  set f0 = xor2c;
  set xyf0 = [<*x,y*>,f0];
  set xyf1 = [<*x,y*>,f1], yzf2 = [<*y,z*>,f2], zxf3 = [<*z,x*>,f3];
  set S = BitGFA2Str(x,y,z);
  set A1 = GFA2AdderOutput(x,y,z);
  set A2 = GFA2CarryOutput(x,y,z);
  InnerVertices S = {xyf0} \/ {A1} \/ {xyf1,yzf2,zxf3} \/ {A2} by Th95
    .= {xyf0,A1} \/ {xyf1,yzf2,zxf3} \/ {A2} by ENUMSET1:1
    .= {xyf0,A1,xyf1,yzf2,zxf3} \/ {A2} by ENUMSET1:8
    .= {xyf0,A1,xyf1,yzf2,zxf3,A2} by ENUMSET1:15;
  hence thesis by ENUMSET1:def 4;
end;
