move: (Par_Path_consistent H (Path_consistent_Path1 H1) ltac:(eauto 2 with erased)) => h0.
        inversion h0. subst.
        move: (Par_Path_consistent_CApp h0 H) => h1.
        eapply mp_step with (b:= b0). auto.
        eapply IHmultipar; eauto 2.
        eapply Path_consistent_Trans with (b := a_CApp a1 g_Triv).
        eapply Path_consistent_Sym; auto.
        auto.
    Qed.




Ltac binds

Lemma multipar_Const : forall S D T b, multipar S D (a_Const T) b ->