(* ------------------------------------------------------------- *)

Lemma multipar_CPi_phi_proj:  ∀ (G : context) D (A B a A' B' a' T T': tm),
multipar G D (a_CPi (Eq A B T) a) (a_CPi (Eq A' B' T') a')
-> (multipar G D A A'/\ multipar G D B B' /\ multipar G D T T').