theorem
  (delta A)~ = delta A
proof
  thus (delta A)~ = <:id A, id A:>~ by Th1
    .= <:id A, id A:> by Th2
    .= delta A by Th1;
end;
