规则替换的顺序问题 规则替换问了还多次还没掌握

Question

在规则替换时，如何避免后面的规则替换前面的效果...

(Sqrt[s - k22 m1 - k11 m2]/(Sqrt[2] Sqrt[m1] Sqrt[m2])
     Cosh[(t Sqrt[s - k22 m1 - k11 m2])/(
     Sqrt[2] Sqrt[m1] Sqrt[
      m2])] /. ((s - k22  m1 - k11 m2)^Rational[r_, 2] m1^
        Rational[rr_, 2] m2^Rational[rr_, 2]) /; r == -rr -> (k I)^
     r) /. s - k22 m1 - k11 m2 -> P

即使交换顺序，也无法获得想要的效果

(Sqrt[s - k22 m1 - k11 m2]/(Sqrt[2] Sqrt[m1] Sqrt[m2])
     Cosh[(t Sqrt[s - k22 m1 - k11 m2])/(
     Sqrt[2] Sqrt[m1] Sqrt[m2])] /. s - k22 m1 - k11 m2 -> P) /. 
 s - k22 m1 - k11 m2 -> 
  P ((s - k22  m1 - k11 m2)^Rational[r_, 2] m1^Rational[rr_, 2] m2^
        Rational[rr_, 2]) /; r == -rr -> (k I)^r

Answer 1

((Sqrt[s - k22 m1 - k11 m2]/Sqrt[2]
       Cosh[(t Sqrt[s - k22 m1 - k11 m2])/(
      Sqrt[2] Sqrt[m1] Sqrt[
       m2])]) //. ((s - k22 m1 - k11 m2)^Rational[r_, 2] m1^
        Rational[rr_, 2] m2^Rational[rr_, 2]) /; r == -rr -> (k I)^
     r) /. s - k22 m1 - k11 m2 -> P