Canonical Structure PhiUA_1 := Build_NT PhiUA_1_tau_nt_law.
(* PhiUA et PhiUA_1 sont iso *)
Section phi_ua_iso.
Variable dxc : POb (Dual D) C.

Lemma PhiUA_1_o_PhiUA : AreIsos (PhiUA dxc) (PhiUA_1 dxc).
End phi_ua_iso.