(*Lemma SR: forall pc nc , (forall s, clause_denote pc s /\ clause_denote nc s) -> forall s, setd clause_denote inter TT (spatial_resolution pc nc) s. *)

Lemma unfolding1_sound: forall sc1 sc2,
forall s, clause_denote sc2 s ->
listd clause_denote inter TT (unfolding1 sc1 sc2) s.