theorem
  a1 is_a_unity_wrt f1 & a2 is_a_unity_wrt f2 iff [a1,a2] is_a_unity_wrt
  |:f1,f2:|
by Th24,Th25;
