(* ::Package:: *)

(************************************************************************)
(* This file was generated automatically by the Mathematica front end.  *)
(* It contains Initialization cells from a Notebook file, which         *)
(* typically will have the same name as this file except ending in      *)
(* ".nb" instead of ".m".                                               *)
(*                                                                      *)
(* This file is intended to be loaded into the Mathematica kernel using *)
(* the package loading commands Get or Needs.  Doing so is equivalent   *)
(* to using the Evaluate Initialization Cells menu command in the front *)
(* end.                                                                 *)
(*                                                                      *)
(* DO NOT EDIT THIS FILE.  This entire file is regenerated              *)
(* automatically each time the parent Notebook file is saved in the     *)
(* Mathematica front end.  Any changes you make to this file will be    *)
(* overwritten.                                                         *)
(************************************************************************)



(* ::Input::Initialization:: *)
Subscript[m0, i_,j_->k_]:={Subscript[\[ScriptCapitalA], k]->Subscript[\[ScriptCapitalA], i] Subscript[\[ScriptCapitalA], j],Subscript[\[Xi], k]->Subscript[\[ScriptCapitalA], j] Subscript[\[Xi], i]+Subscript[\[Xi], j], Subscript[\[Eta], k]->Subscript[\[ScriptCapitalA], i] Subscript[\[Eta], j]+Subscript[\[Eta], i], Subscript[\[Beta], k]->Subscript[\[Beta], i]+Subscript[\[Beta], j]-Subscript[\[Xi], i] Subscript[\[Eta], j]};
Subscript[\[Sigma]0, i_->j_]:={Subscript[\[ScriptCapitalA], j]->Subscript[\[ScriptCapitalA], i],Subscript[\[Xi], j]->Subscript[\[Xi], i],Subscript[\[Eta], j]->Subscript[\[Eta], i],Subscript[\[Beta], j]->Subscript[\[Beta], i]}


(* ::Input::Initialization:: *)
d1[f_] := Plus[
f/.Subscript[m0, 1,2->0],
-f/.Subscript[m0, 2,1->0]
]


(* ::Input::Initialization:: *)
d2[g_] := Plus[
g /.(Subscript[\[Sigma]0, a->1]\[Union]Subscript[m0, b,c->2]),
g/.(Subscript[\[Sigma]0, b->1]\[Union]Subscript[m0, c,a->2]),
g/.(Subscript[\[Sigma]0, c->1]\[Union]Subscript[m0, a,b->2])
]



