(* ::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.                                                         *)
(************************************************************************)



SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\OneCo-1604"];
<< Local-160529.m


\[Delta]\[ARing]\[ARing][f_,i_,j_,k_,l_] := \[Delta]aa[f,i,j,k,l]-\[Delta]aa[Subscript[b, i]f,\[CCedilla],j,k,l]-\[Delta]aa[Subscript[b, k]f,i,j,\[CCedilla],l];


Clear[ca,ac];
ac[f_,i_,j_,k_]:=\!\(TraditionalForm\`ca[f, k, i, j] + 
\*SubscriptBox[\(K\[Delta]\), \(j\[InvisibleComma]k\)] ao[f, i, j]\);
AutoCollecting /@ {c,ao,ca,aao};
ToOld=ReplaceAll[{c[f_,i_] :> \[Delta]a[f,\[CCedilla],i],
ao[f_,i_,j_]:> \[Delta]a[f,i,j]-\[Delta]a[Subscript[b, i]f,\[CCedilla],j],
ca[f_,i_,j_,k_]:>\[Delta]aa[f,\[CCedilla],i,j,k],
ac[f_,i_,j_,k_]:>\[Delta]aa[f,i,j,\[CCedilla],k],
aao[f_,i_,j_,k_,l_]:> \[Delta]\[ARing]\[ARing][f,i,j,k,l]
}];
ToNew=ReplaceAll[{
\[Delta]a[f_,\[CCedilla],j_]:>c[f,j],
\[Delta]a[f_,i_,j_]:>ao[f,i,j]+c[Subscript[b, i]f,j],
\[Delta]aa[f_,\[CCedilla],j_,k_,l_]:>ca[f,j,k,l],
\[Delta]aa[f_,j_,k_,\[CCedilla],l_]:>ac[f,j,k,l],
\[Delta]aa[f_,i_,j_,k_,l_]:>aao[f,i,j,k,l]+ca[Subscript[b, i]f,j,k,l]+ac[Subscript[b, k]f,i,j,l]
}];



