Section Properties.
Implicit Types x y : TVar.
Implicit Types xs ys : list TVar.
(* ---------------------------------------------------------------------- *)
(** *** Primary properties *)
(* ---------------------------------------------------------------------- *)
(** **** Properties of singulars *)
(* ---------------------------------------------------------------------- *)
(** **** Properties of concatenation *)
(* ---------------------------------------------------------------------- *)
(** **** Properties of get *)
(* ---------------------------------------------------------------------- *)
(** **** Properties of dom *)
(* ---------------------------------------------------------------------- *)
(** **** Properties of img *)
(* ---------------------------------------------------------------------- *)
(** **** Properties of belongs *)
(* ---------------------------------------------------------------------- *)
(** **** Properties of all_belongs *)
(* ---------------------------------------------------------------------- *)
(** **** Properties of notin *)
(* ---------------------------------------------------------------------- *)
(** **** Properties of all_notin *)

Axiom all_notin_singles_inv : forall A xs ys (vs : list A),
length ys = length vs ->
xs ⊄ (ys ∷ vs) ->
List.Forall (fun x => ¬ List.In x ys) xs.