apply IHmultipar.
eapply Par_lc2; apply H0.
Qed.
Hint Resolve multipar_context_independent : DB.

(* Specifications: *)
Lemma join_context_independent: forall G1 G2 D A B, erased_context G2 ->
joins G1 D A B -> joins G2 D A B.
Lemma Good_NoAssn: forall c G D phi, erased_sort (Co phi) -> Good G D -> c `notin` D -> Good ((c, Co phi) :: G) D.
Hint Resolve Good_NoAssn.