Canonical Structure PsiUA_1 := Build_NT PsiUA_1_tau_nt_law.
(* PsiUA et PsiUA_1 sont iso *)
Section psi_ua_iso.
Variable dxc : POb (Dual D) C.

Lemma PsiUA_1_o_PsiUA : AreIsos (PsiUA dxc) (PsiUA_1 dxc).
End psi_ua_iso.