
theorem Th37:
  for x,y,z being set holds [<*x,y*>,xor2] in InnerVertices
BitGFA0Str(x,y,z) & GFA0AdderOutput(x,y,z) in InnerVertices BitGFA0Str(x,y,z) &
  [<*x,y*>,and2] in InnerVertices BitGFA0Str(x,y,z) & [<*y,z*>,and2] in
InnerVertices BitGFA0Str(x,y,z) & [<*z,x*>,and2] in InnerVertices BitGFA0Str(x,
  y,z) & GFA0CarryOutput(x,y,z) in InnerVertices BitGFA0Str(x,y,z)
proof
  let x,y,z be set;
  set f1 = and2, f2 = and2, f3 = and2;
  set f0 = xor2;
  set xyf0 = [<*x,y*>,f0];
  set xyf1 = [<*x,y*>,f1], yzf2 = [<*y,z*>,f2], zxf3 = [<*z,x*>,f3];
  set S = BitGFA0Str(x,y,z);
  set A1 = GFA0AdderOutput(x,y,z);
  set A2 = GFA0CarryOutput(x,y,z);
  InnerVertices S = {xyf0} \/ {A1} \/ {xyf1,yzf2,zxf3} \/ {A2} by Th31
    .= {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;
