(** Some properties of [is_mill] and [dests_disjoint]. *)

Definition dests_disjoint (m1 m2: moves) : Prop :=
  list_disjoint (dests m1) (dests m2).

Lemma temp_last_change_last_source: forall s d s' sigma, temp_last (sigma ++ (s, d) :: nil) -> temp_last (sigma ++ (s', d) :: nil).