(* invariants sur les MapGet pour conv_0 *)

Lemma u_conv_0_invar_4 :
forall (d : preDTA) (a : ad) (ladj : state),
MapGet state (udta_conv_0 d) (uad_conv_0 a) = Some ladj ->
exists ladj0 : _, ladj = umpl_conv_0 ladj0.