(* Properties of [subset] *)

(* Specifications: *)
Lemma subset_refl: subset s s=true.
Lemma subset_antisym:
subset s s'=true -> subset s' s=true -> equal s s'=true.
Lemma subset_trans:
subset s s'=true -> subset s' s''=true -> subset s s''=true.
Lemma subset_equal:
equal s s'=true -> subset s s'=true.
Lemma subset_refl: subset s s=true.
Lemma subset_antisym:
subset s s'=true -> subset s' s=true -> equal s s'=true.
Lemma subset_trans:
subset s s'=true -> subset s' s''=true -> subset s s''=true.
Lemma subset_equal:
equal s s'=true -> subset s s'=true.