(* invariants sur les MapGet : conv_1 *)

Lemma u_conv_1_invar_4 :
forall (d : preDTA) (a : ad) (ladj : state),
MapGet state (udta_conv_1 d) (uad_conv_1 a) = Some ladj ->
exists ladj0 : _, ladj = umpl_conv_1 ladj0.