
theorem ::Col002a:
  for a,b,c being set st c = [<*>, (0-tuples_on BOOLEAN)-->TRUE] holds
  1-BitSubtracterStr(<*a*>,<*b*>)
  = 1GateCircStr(<*>, (0-tuples_on BOOLEAN)-->TRUE)
  +* BitSubtracterWithBorrowStr(a, b, c) & 1-BitSubtracterCirc(<*a*>,<*b*>)
  = 1GateCircuit(<*>, (0-tuples_on BOOLEAN)-->TRUE)
  +* BitSubtracterWithBorrowCirc(a, b, c) & 1-BitBorrowOutput(<*a*>,<*b*>)
  = BorrowOutput(a, b, c)
proof
  let a,b be set;
A1: <*a*>.1 = a;
  <*b*>.1 = b;
  hence thesis by A1,Th3;
end;
