proposition: Theorem all_binds_singles_singles : forall A xs ys (vs ws : list A), xs = ys -> vs = ws -> (xs ∷ vs) ⊏ (ys ∷ ws).
proof: Proof. intros; subst. unfold all_binds. intros; auto. Qed.
imports: Utf8 Equalities CoreGenericEnv