Definition inter (d0 d1 : DTA) : DTA :=
  match d0, d1 with
  | dta p0 a0, dta p1 a1 => dta (preDTA_produit p0 p1) (iad_conv a0 a1)
  end.

Lemma inter_semantics_0 : forall (d0 d1 : DTA) (t : term), dta_compatible d0 d1 -> (reconnait d0 t /\ reconnait d1 t <-> reconnait (inter d0 d1) t).