theorem Th14:
  FinJoin(B \/ {.b.}) = FinJoin B "\/" b
proof
  thus FinJoin(B \/ {.b.}) =FinJoin (B,id 0L) "\/" (id 0L).b by Th13
    .= FinJoin B "\/" b by FUNCT_1:18;
end;
