(* ::Package:: *)

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

(* ::Input::Initialization:: *)
ijkmn=i|j|k|m|n; es=ijkmn|SuperPlus[ijkmn]|SuperPlus[SuperPlus[ijkmn]]; Subscript[\[Delta], \[Alpha]:es,\[Beta]:es]:=If[\[Alpha]===\[Beta],1,0];
gRules[{s_,i_,j_}]:={Subscript[g, \[Nu]_\[InvisibleComma]j\[InvisibleComma]\[Beta]_]:>Subscript[g, \[Nu]\[InvisibleComma]SuperPlus[j]\[InvisibleComma]\[Beta]]+Subscript[\[Delta], j\[InvisibleComma]\[Beta]],Subscript[g, \[Nu]_\[InvisibleComma]i\[InvisibleComma]\[Beta]_]:>\!\(
\*SubsuperscriptBox[\(T\), \(\[Nu]\), \(s\)] 
\*SubscriptBox[\(g\), \(\[Nu]\[InvisibleComma]
\*SuperscriptBox[\(i\), \(+\)]\[InvisibleComma]\[Beta]\)]\)+(1-\!\(\*SubsuperscriptBox[\(T\), \(\[Nu]\), \(s\)]\))Subscript[g, \[Nu]\[InvisibleComma]SuperPlus[j]\[InvisibleComma]\[Beta]]+Subscript[\[Delta], i\[InvisibleComma]\[Beta]],
Subscript[g, \[Nu]_\[InvisibleComma]\[Alpha]_\[InvisibleComma]SuperPlus[i]]:>\!\(
\*SubsuperscriptBox[\(T\), \(\[Nu]\), \(s\)] 
\*SubscriptBox[\(g\), \(\[Nu]\[InvisibleComma]\[Alpha]\[InvisibleComma]i\)]\)+Subscript[\[Delta], \[Alpha]\[InvisibleComma]SuperPlus[i]],Subscript[g, \[Nu]_\[InvisibleComma]\[Alpha]_\[InvisibleComma]SuperPlus[j]]:>Subscript[g, \[Nu]\[InvisibleComma]\[Alpha]\[InvisibleComma]j]+(1-\!\(\*SubsuperscriptBox[\(T\), \(\[Nu]\), \(s\)]\))Subscript[g, \[Nu]\[InvisibleComma]\[Alpha]\[InvisibleComma]i]+Subscript[\[Delta], \[Alpha]\[InvisibleComma]SuperPlus[j]]};
gRules[X___List]:=Union@@Table[gRules[c],{c,{X}}]
