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

(* Specifications: *)
H5 : forall (c : atom) a, not (binds c (Ax ?T a) an_toplevel) |- _ ] => unfold not in H5; unfold toplevel in
Lemma Par_Const : fo
Lemma multipar_Const : forall S D T b, multipar S D (a_Const T) b ->