* [misc]progress:  [Phase 1 of 3] Setting up.
* * * [misc]progress:  [1/2] Preparing points
* * * * [misc]points:  Sampling 256 additional inputs, on iter 0 have 0 / 256
* * * * [misc]points:  Computing exacts on every 16 of 256 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 8 of 256 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 4 of 256 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 2 of 256 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts for 256 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 256 points with exact outputs
* * * [misc]progress:  [2/2] Setting up program.
* [misc]progress:  [Phase 2 of 3] Improving.
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (70 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (391 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * [misc]progress:  iteration 1 / 4
* * * [misc]progress:  picking best candidate
* * * * [misc]pick:  Picked  #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))>
* * * [misc]progress:  localizing error
* * * [misc]progress:  generating rewritten candidates
* * * * [misc]progress:  [ 1 / 4 ] rewriting at (2)
* * * * [misc]progress:  [ 2 / 4 ] rewriting at (2 2)
* * * * [misc]progress:  [ 3 / 4 ] rewriting at (2 2 1 2)
* * * * [misc]progress:  [ 4 / 4 ] rewriting at (2 2 1 2 1 2)
* * * [misc]progress:  generating series expansions
* * * * [misc]progress:  [ 1 / 4 ] generating series at (2)
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (* -2 (cos (* 1/2 K))) into (* -2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* -2 (cos (* 1/2 K))) (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) into (* -2 (* (cos (* 1/2 K)) (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1))))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (* 1/2 K)) (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ U (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ U (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ U (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* 1/2 U) into (* 1/2 U)
* [misc]backup-simplify:  Simplify (log (* 1/2 U)) into (log (* 1/2 U))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log (* 1/2 U)) (log J)) into (+ (log (* 1/2 U)) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (* 1/2 U)) (log J))) into (* 2 (+ (log (* 1/2 U)) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (* 1/2 U)) (log J)))) into (exp (* 2 (+ (log (* 1/2 U)) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (* 1/2 U)) (log J))))) into (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 U)) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* -2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))) into (* -2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)))
* [misc]taylor:  Taking taylor expansion of (* -2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)) in U
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (* 1/2 U)) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (* 1/2 U)) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (* 1/2 U)) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 U)) in U
* [misc]taylor:  Taking taylor expansion of (* 1/2 U) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]backup-simplify:  Simplify (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ U (cos (* 1/2 K)))) 2))) (/ 0 (* 1/2 (/ U (cos (* 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) J) into (* -2 (* J (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))))
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* -2 (cos (/ 1/2 K))) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (/ 1/2 K)) U))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (/ 1/2 K)) U)) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) U) into (* (cos (/ 1/2 K)) U)
* [misc]backup-simplify:  Simplify (/ 1/2 (* (cos (/ 1/2 K)) U)) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))
* [misc]backup-simplify:  Simplify (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) in U
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (/ 1/2 K)) U))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (/ 1/2 K)) U)) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (/ 1/2 (cos (/ 1/2 K))))) into (- (log (/ 1/2 (cos (/ 1/2 K)))) (log U))
* [misc]backup-simplify:  Simplify (+ (- (log (/ 1/2 (cos (/ 1/2 K)))) (log U)) (log J)) into (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))) into (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))) into (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))
* [misc]backup-simplify:  Simplify (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow J 2))) (/ 0 J)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (* (cos (/ 1/2 (/ 1 K))) (sqrt (+ (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K)))))) (log (/ 1 U))))) 1)))) (/ 1 (/ 1 J))) into (* -2 (* (* (cos (* 1/2 K)) J) (sqrt (+ 1 (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (* 1/2 K))))) (log (/ 1 U)))))))))
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))) into (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (* (cos (/ 1/2 K)) U))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (* (cos (/ 1/2 K)) U)) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) U) into (* (cos (/ 1/2 K)) U)
* [misc]backup-simplify:  Simplify (/ -1/2 (* (cos (/ 1/2 K)) U)) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))) into (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))) into (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (* (cos (/ 1/2 K)) U))) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (* (cos (/ 1/2 K)) U)) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (/ -1/2 (cos (/ 1/2 K))))) into (- (log (/ -1/2 (cos (/ 1/2 K)))) (log U))
* [misc]backup-simplify:  Simplify (+ (- (log (/ -1/2 (cos (/ 1/2 K)))) (log U)) (log J)) into (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))) into (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)) (cos (/ 1/2 K))) into (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))
* [misc]backup-simplify:  Simplify (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow J 2))) (/ 0 J)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* 2 (* (cos (/ 1/2 (/ 1 (- K)))) (sqrt (+ (exp (* 2 (- (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K))))))) (log (/ 1 (- U)))))) 1)))) (/ 1 (/ 1 (- J)))) into (* -2 (* (* (cos (* -1/2 K)) J) (sqrt (+ (exp (* 2 (- (+ (log (/ -1 J)) (log (/ -1/2 (cos (* -1/2 K))))) (log (/ -1 U))))) 1))))
* * * * [misc]progress:  [ 2 / 4 ] generating series at (2 2)
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) in J
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (* 1/2 K)) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (* 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (* 1/2 K))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (* 1/2 K)))) into (log (/ 1/2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (/ 1/2 (cos (* 1/2 K))))) into (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (log U) (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))) into (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) into (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (* 1/2 K)) J)) 2))) (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (* 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (* 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 U)) (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K))))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))))
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* -1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* -1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -1/2 (/ 1 (cos (/ 1/2 K)))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* -1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* -1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ -1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1 (- U))) (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K)))))))))) 1)) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))))
* * * * [misc]progress:  [ 3 / 4 ] generating series at (2 2 1 2)
* [misc]approximate:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) in J
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (* 1/2 K)) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (* 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (* 1/2 K))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (* 1/2 K)))) into (log (/ 1/2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (/ 1/2 (cos (* 1/2 K))))) into (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (log U) (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))) into (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) into (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (* 1/2 K)) J)) 2))) (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (* 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (* 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]approximate:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1 U)) (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K))))))))) into (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))
* [misc]approximate:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* -1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* -1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -1/2 (/ 1 (cos (/ 1/2 K)))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* -1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* -1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ -1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1 (- U))) (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K)))))))))) into (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))
* * * * [misc]progress:  [ 4 / 4 ] generating series at (2 2 1 2 1 2)
* [misc]approximate:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in (J K) around 0
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]approximate:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in (J K) around 0
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (* 2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 (/ 1 K)))) (/ 1 (/ 1 J))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]approximate:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in (J K) around 0
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]taylor:  Taking taylor expansion of (* -2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (cos (/ 1/2 (/ 1 (- K))))) (/ 1 (/ 1 (- J)))) into (* 2 (* (cos (* -1/2 K)) J))
* * * [misc]progress:  simplifying candidates
* * * * [misc]progress:  [ 1 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (70 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (391 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 2 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (70 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (391 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 3 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1))>
* * * * [misc]progress:  [ 4 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (exp (+ (+ (log (* -2 J)) (log (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (+ (+ (log (* -2 J)) (log (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (38 enodes)
* * [misc]simplify:  iters left: 4 (69 enodes)
* * [misc]simplify:  iters left: 3 (153 enodes)
* * [misc]simplify:  iters left: 2 (404 enodes)
* [exit]simplify:  Simplified to (+ (+ (log (cos (/ K 2))) (log (* J -2))) (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (+ (+ (log (cos (/ K 2))) (log (* J -2))) (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 5 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (exp (+ (log (* (* -2 J) (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (+ (log (* (* -2 J) (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (68 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (401 enodes)
* [exit]simplify:  Simplified to (+ (log (sqrt (+ 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2))))))) (log (* (* J -2) (cos (/ K 2)))))
* [exit]simplify:  Simplified to (+ (log (sqrt (+ 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2))))))) (log (* (* J -2) (cos (/ K 2)))))
* * * * [misc]progress:  [ 6 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (exp (log (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (log (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (82 enodes)
* * [misc]simplify:  iters left: 3 (200 enodes)
* * [misc]simplify:  iters left: 2 (471 enodes)
* [exit]simplify:  Simplified to (log (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (log (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 7 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (log (exp (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (exp (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (79 enodes)
* * [misc]simplify:  iters left: 3 (166 enodes)
* * [misc]simplify:  iters left: 2 (407 enodes)
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 8 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (cbrt (* (* (* (* (* -2 J) (* -2 J)) (* -2 J)) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (* -2 J)) (* -2 J)) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (23 enodes)
* * [misc]simplify:  iters left: 5 (53 enodes)
* * [misc]simplify:  iters left: 4 (182 enodes)
* [exit]simplify:  Simplified to (* (+ (* (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2)))) (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2))))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (+ (* (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2)))) (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2))))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 9 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (cbrt (* (* (* (* (* -2 J) (cos (/ K 2))) (* (* -2 J) (cos (/ K 2)))) (* (* -2 J) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (cos (/ K 2))) (* (* -2 J) (cos (/ K 2)))) (* (* -2 J) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (47 enodes)
* * [misc]simplify:  iters left: 4 (154 enodes)
* [exit]simplify:  Simplified to (* (+ (* (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) (pow (* (* J -2) (cos (/ K 2))) 3)) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (+ (* (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) (pow (* (* J -2) (cos (/ K 2))) 3)) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 10 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (72 enodes)
* * [misc]simplify:  iters left: 3 (158 enodes)
* * [misc]simplify:  iters left: 2 (390 enodes)
* [exit]simplify:  Simplified to (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [exit]simplify:  Simplified to (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [enter]simplify:  Simplifying (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 11 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (cbrt (* (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (42 enodes)
* * [misc]simplify:  iters left: 4 (112 enodes)
* * [misc]simplify:  iters left: 3 (430 enodes)
* [exit]simplify:  Simplified to (* (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 12 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 13 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * * [misc]progress:  [ 14 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (83 enodes)
* * [misc]simplify:  iters left: 3 (207 enodes)
* * [misc]simplify:  iters left: 2 (478 enodes)
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 15 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (73 enodes)
* * [misc]simplify:  iters left: 3 (162 enodes)
* * [misc]simplify:  iters left: 2 (394 enodes)
* [exit]simplify:  Simplified to (* (fabs (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (* (* J -2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (fabs (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 16 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 17 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt 1)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt 1))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (40 enodes)
* * [misc]simplify:  iters left: 3 (66 enodes)
* * [misc]simplify:  iters left: 2 (82 enodes)
* [exit]simplify:  Simplified to (* (* (sqrt 1) (* J -2)) (cos (/ K 2)))
* [exit]simplify:  Simplified to (* (* (sqrt 1) (* J -2)) (cos (/ K 2)))
* * * * [misc]progress:  [ 18 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 19 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) 1) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) 1)
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (34 enodes)
* * [misc]simplify:  iters left: 3 (53 enodes)
* * [misc]simplify:  iters left: 2 (58 enodes)
* * [misc]simplify:  iters left: 1 (60 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* * * * [misc]progress:  [ 20 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* -2 J) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (326 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))) (cos (/ K 2)))
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))) (cos (/ K 2)))
* * * * [misc]progress:  [ 21 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (/ (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))) (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (41 enodes)
* * [misc]simplify:  iters left: 4 (88 enodes)
* * [misc]simplify:  iters left: 3 (261 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (pow (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 3))) (* (* J -2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (pow (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 3))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 22 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (/ (* (* (* -2 J) (cos (/ K 2))) (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (81 enodes)
* * [misc]simplify:  iters left: 3 (250 enodes)
* [exit]simplify:  Simplified to (* (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))) (* (* J -2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 23 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (* (* -2 J) (cos (/ K 2)))))>
* * * * [misc]progress:  [ 24 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (pow (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) 1/2)))>
* * * * [misc]progress:  [ 25 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (pow (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) 1)))>
* * * * [misc]progress:  [ 26 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (exp (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 27 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (log (exp (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (exp (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (exp (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (exp (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 28 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (* (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (* (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 29 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (cbrt (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (55 enodes)
* * [misc]simplify:  iters left: 3 (131 enodes)
* [exit]simplify:  Simplified to (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 30 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (328 enodes)
* [exit]simplify:  Simplified to (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [enter]simplify:  Simplifying (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 31 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 32 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (* (sqrt 1) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqrt 1)
* [exit]simplify:  Simplified to (sqrt 1)
* [enter]simplify:  Simplifying (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (41 enodes)
* * [misc]simplify:  iters left: 3 (101 enodes)
* * [misc]simplify:  iters left: 2 (324 enodes)
* [exit]simplify:  Simplified to (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))
* [exit]simplify:  Simplified to (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))
* * * * [misc]progress:  [ 33 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (/ (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))) (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (31 enodes)
* * [misc]simplify:  iters left: 4 (59 enodes)
* * [misc]simplify:  iters left: 3 (202 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (pow (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 3)))
* [exit]simplify:  Simplified to (sqrt (+ 1 (pow (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 3)))
* [enter]simplify:  Simplifying (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (90 enodes)
* * [misc]simplify:  iters left: 3 (337 enodes)
* [exit]simplify:  Simplified to (sqrt (+ (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (+ (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 34 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (/ (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (52 enodes)
* * [misc]simplify:  iters left: 3 (187 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (pow (/ (/ (/ U 2) J) (cos (/ K 2))) (+ 3 1))))
* [exit]simplify:  Simplified to (sqrt (- 1 (pow (/ (/ (/ U 2) J) (cos (/ K 2))) (+ 3 1))))
* [enter]simplify:  Simplifying (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (127 enodes)
* * [misc]simplify:  iters left: 2 (484 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))))
* * * * [misc]progress:  [ 35 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 36 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (fabs (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * * [misc]progress:  [ 37 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (* 1 (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * * [misc]progress:  [ 38 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* (log (/ U (* (* 2 J) (cos (/ K 2))))) 2))))))>
* [enter]simplify:  Simplifying (* (log (/ U (* (* 2 J) (cos (/ K 2))))) 2)
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (40 enodes)
* * [misc]simplify:  iters left: 3 (69 enodes)
* * [misc]simplify:  iters left: 2 (134 enodes)
* * [misc]simplify:  iters left: 1 (296 enodes)
* [exit]simplify:  Simplified to (* (log (/ (/ U (* J 2)) (cos (/ K 2)))) 2)
* [exit]simplify:  Simplified to (* (log (/ (/ U (* J 2)) (cos (/ K 2)))) 2)
* * * * [misc]progress:  [ 39 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* (log (/ U (* (* 2 J) (cos (/ K 2))))) 2))))))>
* [enter]simplify:  Simplifying (* (log (/ U (* (* 2 J) (cos (/ K 2))))) 2)
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (21 enodes)
* * [misc]simplify:  iters left: 4 (40 enodes)
* * [misc]simplify:  iters left: 3 (69 enodes)
* * [misc]simplify:  iters left: 2 (134 enodes)
* * [misc]simplify:  iters left: 1 (296 enodes)
* [exit]simplify:  Simplified to (* (log (/ (/ U (* J 2)) (cos (/ K 2)))) 2)
* [exit]simplify:  Simplified to (* (log (/ (/ U (* J 2)) (cos (/ K 2)))) 2)
* * * * [misc]progress:  [ 40 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) (* 1 2))))))>
* [enter]simplify:  Simplifying (* 1 2)
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* [exit]simplify:  Simplified to 2
* [exit]simplify:  Simplified to 2
* * * * [misc]progress:  [ 41 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* (pow (* (cbrt (/ U (* (* 2 J) (cos (/ K 2))))) (cbrt (/ U (* (* 2 J) (cos (/ K 2)))))) 2) (pow (cbrt (/ U (* (* 2 J) (cos (/ K 2))))) 2))))))>
* [enter]simplify:  Simplifying (pow (* (cbrt (/ U (* (* 2 J) (cos (/ K 2))))) (cbrt (/ U (* (* 2 J) (cos (/ K 2)))))) 2)
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (33 enodes)
* * [misc]simplify:  iters left: 3 (36 enodes)
* * [misc]simplify:  iters left: 2 (39 enodes)
* * [misc]simplify:  iters left: 1 (58 enodes)
* [exit]simplify:  Simplified to (* (/ (/ U (* J 2)) (cos (/ K 2))) (cbrt (/ (/ U (* J 2)) (cos (/ K 2)))))
* [exit]simplify:  Simplified to (* (/ (/ U (* J 2)) (cos (/ K 2))) (cbrt (/ (/ U (* J 2)) (cos (/ K 2)))))
* [enter]simplify:  Simplifying (pow (cbrt (/ U (* (* 2 J) (cos (/ K 2))))) 2)
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (28 enodes)
* * [misc]simplify:  iters left: 3 (29 enodes)
* [exit]simplify:  Simplified to (* (cbrt (/ (/ U (* J 2)) (cos (/ K 2)))) (cbrt (/ (/ U (* J 2)) (cos (/ K 2)))))
* [exit]simplify:  Simplified to (* (cbrt (/ (/ U (* J 2)) (cos (/ K 2)))) (cbrt (/ (/ U (* J 2)) (cos (/ K 2)))))
* * * * [misc]progress:  [ 42 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* (pow (sqrt (/ U (* (* 2 J) (cos (/ K 2))))) 2) (pow (sqrt (/ U (* (* 2 J) (cos (/ K 2))))) 2))))))>
* [enter]simplify:  Simplifying (pow (sqrt (/ U (* (* 2 J) (cos (/ K 2))))) 2)
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (28 enodes)
* * [misc]simplify:  iters left: 3 (36 enodes)
* * [misc]simplify:  iters left: 2 (40 enodes)
* * [misc]simplify:  iters left: 1 (46 enodes)
* [exit]simplify:  Simplified to (/ (/ U (* J 2)) (cos (/ K 2)))
* [exit]simplify:  Simplified to (/ (/ U (* J 2)) (cos (/ K 2)))
* [enter]simplify:  Simplifying (pow (sqrt (/ U (* (* 2 J) (cos (/ K 2))))) 2)
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (28 enodes)
* * [misc]simplify:  iters left: 3 (36 enodes)
* * [misc]simplify:  iters left: 2 (40 enodes)
* * [misc]simplify:  iters left: 1 (46 enodes)
* [exit]simplify:  Simplified to (/ (/ U (* J 2)) (cos (/ K 2)))
* [exit]simplify:  Simplified to (/ (/ U (* J 2)) (cos (/ K 2)))
* * * * [misc]progress:  [ 43 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* (pow 1 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (pow 1 2)
* * [misc]simplify:  iters left: 1 (3 enodes)
* [exit]simplify:  Simplified to 1
* [exit]simplify:  Simplified to 1
* [enter]simplify:  Simplifying (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (17 enodes)
* * [misc]simplify:  iters left: 4 (35 enodes)
* * [misc]simplify:  iters left: 3 (95 enodes)
* * [misc]simplify:  iters left: 2 (318 enodes)
* [exit]simplify:  Simplified to (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))
* * * * [misc]progress:  [ 44 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* (pow U 2) (pow (/ 1 (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (pow U 2)
* * [misc]simplify:  iters left: 1 (3 enodes)
* [exit]simplify:  Simplified to (* U U)
* [exit]simplify:  Simplified to (* U U)
* [enter]simplify:  Simplifying (pow (/ 1 (* (* 2 J) (cos (/ K 2)))) 2)
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (37 enodes)
* * [misc]simplify:  iters left: 3 (88 enodes)
* * [misc]simplify:  iters left: 2 (299 enodes)
* [exit]simplify:  Simplified to (* (/ (/ 1 (* J 2)) (cos (/ K 2))) (/ (/ 1 (* J 2)) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (/ (/ 1 (* J 2)) (cos (/ K 2))) (/ (/ 1 (* J 2)) (cos (/ K 2))))
* * * * [misc]progress:  [ 45 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* (/ U (* (* 2 J) (cos (/ K 2)))) (/ U (* (* 2 J) (cos (/ K 2)))))))))>
* * * * [misc]progress:  [ 46 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 1)))))>
* * * * [misc]progress:  [ 47 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (log (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (log (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (143 enodes)
* [exit]simplify:  Simplified to (* (log (/ (/ U (* J 2)) (cos (/ K 2)))) 2)
* [exit]simplify:  Simplified to (* (log (/ (/ U (* J 2)) (cos (/ K 2)))) 2)
* * * * [misc]progress:  [ 48 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (log (exp (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (exp (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (38 enodes)
* * [misc]simplify:  iters left: 3 (98 enodes)
* * [misc]simplify:  iters left: 2 (321 enodes)
* [exit]simplify:  Simplified to (exp (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))
* [exit]simplify:  Simplified to (exp (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))
* * * * [misc]progress:  [ 49 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* (* (cbrt (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (cbrt (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (cbrt (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (cbrt (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (37 enodes)
* * [misc]simplify:  iters left: 3 (98 enodes)
* * [misc]simplify:  iters left: 2 (321 enodes)
* [exit]simplify:  Simplified to (* (cbrt (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))) (cbrt (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (* (cbrt (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))) (cbrt (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))))
* [enter]simplify:  Simplifying (cbrt (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (36 enodes)
* * [misc]simplify:  iters left: 3 (97 enodes)
* * [misc]simplify:  iters left: 2 (320 enodes)
* [exit]simplify:  Simplified to (cbrt (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))
* [exit]simplify:  Simplified to (cbrt (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))
* * * * [misc]progress:  [ 50 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (cbrt (* (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))
* * [misc]simplify:  iters left: 6 (12 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (191 enodes)
* [exit]simplify:  Simplified to (pow (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))) 3)
* [exit]simplify:  Simplified to (pow (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))) 3)
* * * * [misc]progress:  [ 51 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* (sqrt (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (sqrt (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (sqrt (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (37 enodes)
* * [misc]simplify:  iters left: 3 (97 enodes)
* * [misc]simplify:  iters left: 2 (324 enodes)
* [exit]simplify:  Simplified to (fabs (/ (/ U (* J 2)) (cos (/ K 2))))
* [exit]simplify:  Simplified to (fabs (/ (/ U (* J 2)) (cos (/ K 2))))
* [enter]simplify:  Simplifying (sqrt (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (18 enodes)
* * [misc]simplify:  iters left: 4 (37 enodes)
* * [misc]simplify:  iters left: 3 (97 enodes)
* * [misc]simplify:  iters left: 2 (324 enodes)
* [exit]simplify:  Simplified to (fabs (/ (/ U (* J 2)) (cos (/ K 2))))
* [exit]simplify:  Simplified to (fabs (/ (/ U (* J 2)) (cos (/ K 2))))
* * * * [misc]progress:  [ 52 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * * [misc]progress:  [ 53 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (pow (* (* 2 J) (cos (/ K 2))) 1)) 2)))))>
* [enter]simplify:  Simplifying (* (* 2 J) (cos (/ K 2)))
* * [misc]simplify:  iters left: 5 (7 enodes)
* * [misc]simplify:  iters left: 4 (11 enodes)
* * [misc]simplify:  iters left: 3 (17 enodes)
* * [misc]simplify:  iters left: 2 (18 enodes)
* [exit]simplify:  Simplified to (* (* J 2) (cos (/ K 2)))
* [exit]simplify:  Simplified to (* (* J 2) (cos (/ K 2)))
* * * * [misc]progress:  [ 54 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (pow (* (* 2 J) (cos (/ K 2))) 1)) 2)))))>
* * * * [misc]progress:  [ 55 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (exp (+ (log (* 2 J)) (log (cos (/ K 2)))))) 2)))))>
* [enter]simplify:  Simplifying (+ (log (* 2 J)) (log (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (14 enodes)
* * [misc]simplify:  iters left: 4 (19 enodes)
* * [misc]simplify:  iters left: 3 (24 enodes)
* [exit]simplify:  Simplified to (+ (log (* J 2)) (log (cos (/ K 2))))
* [exit]simplify:  Simplified to (+ (log (* J 2)) (log (cos (/ K 2))))
* * * * [misc]progress:  [ 56 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (exp (log (* (* 2 J) (cos (/ K 2)))))) 2)))))>
* [enter]simplify:  Simplifying (log (* (* 2 J) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (15 enodes)
* * [misc]simplify:  iters left: 4 (26 enodes)
* * [misc]simplify:  iters left: 3 (44 enodes)
* [exit]simplify:  Simplified to (log (* (* J 2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (log (* (* J 2) (cos (/ K 2))))
* * * * [misc]progress:  [ 57 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (log (exp (* (* 2 J) (cos (/ K 2)))))) 2)))))>
* [enter]simplify:  Simplifying (exp (* (* 2 J) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (14 enodes)
* * [misc]simplify:  iters left: 4 (25 enodes)
* * [misc]simplify:  iters left: 3 (31 enodes)
* * [misc]simplify:  iters left: 2 (42 enodes)
* * [misc]simplify:  iters left: 1 (48 enodes)
* [exit]simplify:  Simplified to (pow (exp (+ J J)) (cos (/ K 2)))
* [exit]simplify:  Simplified to (pow (exp (+ J J)) (cos (/ K 2)))
* * * * [misc]progress:  [ 58 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (cbrt (* (* (* (* 2 J) (* 2 J)) (* 2 J)) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2)))))) 2)))))>
* [enter]simplify:  Simplifying (* (* (* (* 2 J) (* 2 J)) (* 2 J)) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (77 enodes)
* * [misc]simplify:  iters left: 3 (243 enodes)
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (pow (* J 2) 3)) (* (cos (/ K 2)) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (pow (* J 2) 3)) (* (cos (/ K 2)) (cos (/ K 2))))
* * * * [misc]progress:  [ 59 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* (cbrt (* (* 2 J) (cos (/ K 2)))) (cbrt (* (* 2 J) (cos (/ K 2))))) (cbrt (* (* 2 J) (cos (/ K 2)))))) 2)))))>
* [enter]simplify:  Simplifying (* (cbrt (* (* 2 J) (cos (/ K 2)))) (cbrt (* (* 2 J) (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (13 enodes)
* * [misc]simplify:  iters left: 4 (19 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* [exit]simplify:  Simplified to (* (cbrt (* (* J 2) (cos (/ K 2)))) (cbrt (* (* J 2) (cos (/ K 2)))))
* [exit]simplify:  Simplified to (* (cbrt (* (* J 2) (cos (/ K 2)))) (cbrt (* (* J 2) (cos (/ K 2)))))
* [enter]simplify:  Simplifying (cbrt (* (* 2 J) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (12 enodes)
* * [misc]simplify:  iters left: 4 (18 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* [exit]simplify:  Simplified to (cbrt (* (* J 2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (cbrt (* (* J 2) (cos (/ K 2))))
* * * * [misc]progress:  [ 60 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (cbrt (* (* (* (* 2 J) (cos (/ K 2))) (* (* 2 J) (cos (/ K 2)))) (* (* 2 J) (cos (/ K 2)))))) 2)))))>
* [enter]simplify:  Simplifying (* (* (* (* 2 J) (cos (/ K 2))) (* (* 2 J) (cos (/ K 2)))) (* (* 2 J) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (55 enodes)
* * [misc]simplify:  iters left: 3 (168 enodes)
* [exit]simplify:  Simplified to (pow (* (* J 2) (cos (/ K 2))) 3)
* [exit]simplify:  Simplified to (pow (* (* J 2) (cos (/ K 2))) 3)
* * * * [misc]progress:  [ 61 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (sqrt (* (* 2 J) (cos (/ K 2)))) (sqrt (* (* 2 J) (cos (/ K 2)))))) 2)))))>
* [enter]simplify:  Simplifying (sqrt (* (* 2 J) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (12 enodes)
* * [misc]simplify:  iters left: 4 (18 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* [exit]simplify:  Simplified to (sqrt (* (* J 2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (sqrt (* (* J 2) (cos (/ K 2))))
* [enter]simplify:  Simplifying (sqrt (* (* 2 J) (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (12 enodes)
* * [misc]simplify:  iters left: 4 (18 enodes)
* * [misc]simplify:  iters left: 3 (20 enodes)
* [exit]simplify:  Simplified to (sqrt (* (* J 2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (sqrt (* (* J 2) (cos (/ K 2))))
* * * * [misc]progress:  [ 62 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* 1 (* (* 2 J) (cos (/ K 2))))) 2)))))>
* * * * [misc]progress:  [ 63 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* (* 2 J) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2))))) (cbrt (cos (/ K 2))))) 2)))))>
* [enter]simplify:  Simplifying (* (* 2 J) (* (cbrt (cos (/ K 2))) (cbrt (cos (/ K 2)))))
* * [misc]simplify:  iters left: 6 (9 enodes)
* * [misc]simplify:  iters left: 5 (15 enodes)
* * [misc]simplify:  iters left: 4 (28 enodes)
* * [misc]simplify:  iters left: 3 (38 enodes)
* * [misc]simplify:  iters left: 2 (42 enodes)
* [exit]simplify:  Simplified to (* (* 2 (cbrt (cos (/ K 2)))) (* (cbrt (cos (/ K 2))) J))
* [exit]simplify:  Simplified to (* (* 2 (cbrt (cos (/ K 2)))) (* (cbrt (cos (/ K 2))) J))
* * * * [misc]progress:  [ 64 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* (* 2 J) (sqrt (cos (/ K 2)))) (sqrt (cos (/ K 2))))) 2)))))>
* [enter]simplify:  Simplifying (* (* 2 J) (sqrt (cos (/ K 2))))
* * [misc]simplify:  iters left: 6 (8 enodes)
* * [misc]simplify:  iters left: 5 (12 enodes)
* * [misc]simplify:  iters left: 4 (18 enodes)
* * [misc]simplify:  iters left: 3 (19 enodes)
* [exit]simplify:  Simplified to (* (* J 2) (sqrt (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (* J 2) (sqrt (cos (/ K 2))))
* * * * [misc]progress:  [ 65 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* (* 2 J) 1) (cos (/ K 2)))) 2)))))>
* [enter]simplify:  Simplifying (* (* 2 J) 1)
* * [misc]simplify:  iters left: 4 (5 enodes)
* * [misc]simplify:  iters left: 3 (11 enodes)
* * [misc]simplify:  iters left: 2 (17 enodes)
* * [misc]simplify:  iters left: 1 (19 enodes)
* [exit]simplify:  Simplified to (* J 2)
* [exit]simplify:  Simplified to (* J 2)
* * * * [misc]progress:  [ 66 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* 2 (* J (cos (/ K 2))))) 2)))))>
* [enter]simplify:  Simplifying (* J (cos (/ K 2)))
* * [misc]simplify:  iters left: 5 (6 enodes)
* * [misc]simplify:  iters left: 4 (7 enodes)
* [exit]simplify:  Simplified to (* J (cos (/ K 2)))
* [exit]simplify:  Simplified to (* J (cos (/ K 2)))
* * * * [misc]progress:  [ 67 / 79 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (cos (/ K 2)) (* 2 J))) 2)))))>
* * * * [misc]progress:  [ 68 / 79 ] simplifiying candidate #<alt-event (λ (J K U) (* -2 (* J (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))))>
* [enter]simplify:  Simplifying (* -2 (* J (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (129 enodes)
* * [misc]simplify:  iters left: 2 (210 enodes)
* * [misc]simplify:  iters left: 1 (445 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ (* (* (* 1/2 J) U) (* (* 1/2 J) U)) 1)) (* J -2))
* * * * [misc]progress:  [ 69 / 79 ] simplifiying candidate #<alt-event (λ (J K U) (* -2 (* (* (cos (* 1/2 K)) J) (sqrt (+ 1 (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (* 1/2 K))))) (log (/ 1 U))))))))))>
* [enter]simplify:  Simplifying (* -2 (* (* (cos (* 1/2 K)) J) (sqrt (+ 1 (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (* 1/2 K))))) (log (/ 1 U)))))))))
* * [misc]simplify:  iters left: 6 (24 enodes)
* * [misc]simplify:  iters left: 5 (53 enodes)
* * [misc]simplify:  iters left: 4 (116 enodes)
* * [misc]simplify:  iters left: 3 (333 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ (* (* (/ 1/2 (cos (* K 1/2))) (* U (/ 1 J))) (* (/ 1/2 (cos (* K 1/2))) (* U (/ 1 J)))) 1)) (* (* J -2) (cos (* K 1/2))))
* * * * [misc]progress:  [ 70 / 79 ] simplifiying candidate #<alt-event (λ (J K U) (* -2 (* (* (cos (* -1/2 K)) J) (sqrt (+ (exp (* 2 (- (+ (log (/ -1 J)) (log (/ -1/2 (cos (* -1/2 K))))) (log (/ -1 U))))) 1)))))>
* [enter]simplify:  Simplifying (* -2 (* (* (cos (* -1/2 K)) J) (sqrt (+ (exp (* 2 (- (+ (log (/ -1 J)) (log (/ -1/2 (cos (* -1/2 K))))) (log (/ -1 U))))) 1))))
* * [misc]simplify:  iters left: 6 (25 enodes)
* * [misc]simplify:  iters left: 5 (52 enodes)
* * [misc]simplify:  iters left: 4 (115 enodes)
* * [misc]simplify:  iters left: 3 (332 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (* (* (/ -1/2 (cos (* K -1/2))) (/ (/ -1 J) (/ -1 U))) (* (/ -1/2 (cos (* K -1/2))) (/ (/ -1 J) (/ -1 U)))))) (* (* J -2) (cos (* K -1/2))))
* * * * [misc]progress:  [ 71 / 79 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (44 enodes)
* * [misc]simplify:  iters left: 4 (92 enodes)
* * [misc]simplify:  iters left: 3 (176 enodes)
* * [misc]simplify:  iters left: 2 (266 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (* J (* U 1/2)) (* J (* U 1/2))) 1)))
* * * * [misc]progress:  [ 72 / 79 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U)))))))))
* * [misc]simplify:  iters left: 6 (26 enodes)
* * [misc]simplify:  iters left: 5 (60 enodes)
* * [misc]simplify:  iters left: 4 (137 enodes)
* * [misc]simplify:  iters left: 3 (393 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (* (* (/ 1/2 (cos (* K 1/2))) (/ (/ 1 U) J)) (* (/ 1/2 (cos (* K 1/2))) (/ (/ 1 U) J))))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 73 / 79 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K)))))))))))
* * [misc]simplify:  iters left: 6 (27 enodes)
* * [misc]simplify:  iters left: 5 (59 enodes)
* * [misc]simplify:  iters left: 4 (131 enodes)
* * [misc]simplify:  iters left: 3 (351 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (* (* (/ -1 U) (/ -1 J)) (/ -1/2 (cos (* -1/2 K)))) (* (* (/ -1 U) (/ -1 J)) (/ -1/2 (cos (* -1/2 K))))) 1)))
* * * * [misc]progress:  [ 74 / 79 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (44 enodes)
* * [misc]simplify:  iters left: 4 (92 enodes)
* * [misc]simplify:  iters left: 3 (176 enodes)
* * [misc]simplify:  iters left: 2 (266 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (* (* J U) 1/2) (* (* J U) 1/2)) 1)))
* * * * [misc]progress:  [ 75 / 79 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U)))))))))
* * [misc]simplify:  iters left: 6 (26 enodes)
* * [misc]simplify:  iters left: 5 (60 enodes)
* * [misc]simplify:  iters left: 4 (137 enodes)
* * [misc]simplify:  iters left: 3 (393 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (* (* (/ 1/2 (cos (* K 1/2))) (/ (/ 1 U) J)) (* (/ 1/2 (cos (* K 1/2))) (/ (/ 1 U) J))))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 76 / 79 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K)))))))))))
* * [misc]simplify:  iters left: 6 (27 enodes)
* * [misc]simplify:  iters left: 5 (59 enodes)
* * [misc]simplify:  iters left: 4 (131 enodes)
* * [misc]simplify:  iters left: 3 (351 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (* (* (/ -1 U) (/ -1 J)) (/ -1/2 (cos (* -1/2 K)))) (* (* (/ -1 U) (/ -1 J)) (/ -1/2 (cos (* -1/2 K))))) 1)))
* * * * [misc]progress:  [ 77 / 79 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* 2 J)) 2)))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* 2 J)) 2))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (30 enodes)
* * [misc]simplify:  iters left: 4 (58 enodes)
* * [misc]simplify:  iters left: 3 (111 enodes)
* * [misc]simplify:  iters left: 2 (182 enodes)
* * [misc]simplify:  iters left: 1 (259 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ 1 (* (/ (/ U J) 2) (/ (/ U J) 2)))))
* * * * [misc]progress:  [ 78 / 79 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* 2 (* (cos (* 1/2 K)) J))) 2)))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* 2 (* (cos (* 1/2 K)) J))) 2))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (38 enodes)
* * [misc]simplify:  iters left: 4 (72 enodes)
* * [misc]simplify:  iters left: 3 (165 enodes)
* * [misc]simplify:  iters left: 2 (401 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ (/ (/ (* (/ U 2) (/ U 2)) (cos (* 1/2 K))) (* (* J J) (cos (* 1/2 K)))) 1)) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 79 / 79 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* 2 (* (cos (* -1/2 K)) J))) 2)))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* 2 (* (cos (* -1/2 K)) J))) 2))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (38 enodes)
* * [misc]simplify:  iters left: 4 (72 enodes)
* * [misc]simplify:  iters left: 3 (165 enodes)
* * [misc]simplify:  iters left: 2 (401 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ (/ (/ (* (/ U 2) (/ U 2)) (cos (* -1/2 K))) (* (* J J) (cos (* -1/2 K)))) 1)) (* (* J -2) (cos (/ K 2))))
* * * [misc]progress:  adding candidates to table
* * [misc]progress:  iteration 2 / 4
* * * [misc]progress:  picking best candidate
* * * * [misc]pick:  Picked  #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * [misc]progress:  localizing error
* * * [misc]progress:  generating rewritten candidates
* * * * [misc]progress:  [ 1 / 4 ] rewriting at (2 2)
* * * * [misc]progress:  [ 2 / 4 ] rewriting at (2 1 2)
* * * * [misc]progress:  [ 3 / 4 ] rewriting at (2 2 1)
* * * * [misc]progress:  [ 4 / 4 ] rewriting at (2 1 2 1)
* * * [misc]progress:  generating series expansions
* * * * [misc]progress:  [ 1 / 4 ] generating series at (2 2)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) into (pow (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) into (pow (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) into (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) into (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) in J
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (* 1/2 K)) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (* 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (* 1/2 K))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (* 1/2 K)))) into (log (/ 1/2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (/ 1/2 (cos (* 1/2 K))))) into (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (log U) (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))) into (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) into (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) into (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (* 1/2 K)) J)) 2))) (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (* 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (* 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 2))) (/ 0 (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (pow (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) into (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) into (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 2))) (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ 1 (exp (* 2 (+ (log (/ 1 U)) (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K)))))))))) 1/4) into (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))) into (pow (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) into (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) into (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* -1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* -1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -1/2 (/ 1 (cos (/ 1/2 K)))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* -1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* -1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ -1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 2))) (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log (/ 1 (- U))) (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K)))))))))) 1) 1/4) into (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)
* * * * [misc]progress:  [ 2 / 4 ] generating series at (2 1 2)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) into (pow (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) into (pow (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) into (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) into (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) in J
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (* 1/2 K)) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (* 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (* 1/2 K))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (* 1/2 K)))) into (log (/ 1/2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (/ 1/2 (cos (* 1/2 K))))) into (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (log U) (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))) into (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) into (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) into (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (* 1/2 K)) J)) 2))) (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (* 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (* 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 2))) (/ 0 (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (pow (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) into (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) into (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 2))) (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ 1 (exp (* 2 (+ (log (/ 1 U)) (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K)))))))))) 1/4) into (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))) into (pow (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) into (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) into (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* -1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* -1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -1/2 (/ 1 (cos (/ 1/2 K)))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* -1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* -1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ -1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 2))) (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log (/ 1 (- U))) (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K)))))))))) 1) 1/4) into (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)
* * * * [misc]progress:  [ 3 / 4 ] generating series at (2 2 1)
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) in J
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (* 1/2 K)) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (* 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (* 1/2 K))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (* 1/2 K)))) into (log (/ 1/2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (/ 1/2 (cos (* 1/2 K))))) into (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (log U) (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))) into (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) into (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (* 1/2 K)) J)) 2))) (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (* 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (* 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 U)) (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K))))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))))
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* -1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* -1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -1/2 (/ 1 (cos (/ 1/2 K)))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* -1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* -1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ -1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1 (- U))) (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K)))))))))) 1)) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))))
* * * * [misc]progress:  [ 4 / 4 ] generating series at (2 1 2 1)
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) in J
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (* 1/2 K)) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (* 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (* 1/2 K))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (* 1/2 K)))) into (log (/ 1/2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (/ 1/2 (cos (* 1/2 K))))) into (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (log U) (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))) into (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) into (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (* 1/2 K)) J)) 2))) (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (* 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (* 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 U)) (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K))))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))))
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* -1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* -1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -1/2 (/ 1 (cos (/ 1/2 K)))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* -1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* -1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ -1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1 (- U))) (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K)))))))))) 1)) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))))
* * * [misc]progress:  simplifying candidates
* * * * [misc]progress:  [ 1 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (pow (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) 1/2)))>
* * * * [misc]progress:  [ 2 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (pow (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1)))>
* * * * [misc]progress:  [ 3 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (exp (log (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (log (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (log (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (log (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 4 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (log (exp (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (exp (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (exp (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (exp (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 5 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (328 enodes)
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [enter]simplify:  Simplifying (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 6 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (48 enodes)
* * [misc]simplify:  iters left: 3 (108 enodes)
* * [misc]simplify:  iters left: 2 (330 enodes)
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 7 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (sqrt (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (105 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (fabs (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (fabs (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 8 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (sqrt (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (105 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 9 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 10 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (sqrt (sqrt 1)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt 1))
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt 1))
* [exit]simplify:  Simplified to (sqrt (sqrt 1))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 11 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 12 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (sqrt 1) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqrt 1)
* [exit]simplify:  Simplified to (sqrt 1)
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 13 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (/ (sqrt (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))) (sqrt (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (60 enodes)
* * [misc]simplify:  iters left: 3 (206 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (* (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3) (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3)))))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (* (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3) (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3)))))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (91 enodes)
* * [misc]simplify:  iters left: 3 (340 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 14 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (/ (sqrt (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (53 enodes)
* * [misc]simplify:  iters left: 3 (194 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))))
* [enter]simplify:  Simplifying (sqrt (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (47 enodes)
* * [misc]simplify:  iters left: 3 (128 enodes)
* * [misc]simplify:  iters left: 2 (485 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 15 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 16 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (fabs (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* * * * [misc]progress:  [ 17 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (fabs (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* * * * [misc]progress:  [ 18 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* 1 (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* * * * [misc]progress:  [ 19 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (pow (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) 1/2)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * * [misc]progress:  [ 20 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (pow (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * * [misc]progress:  [ 21 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (exp (log (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (log (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (log (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (log (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 22 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (log (exp (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (exp (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (exp (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (exp (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 23 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (328 enodes)
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [enter]simplify:  Simplifying (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 24 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (cbrt (* (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (48 enodes)
* * [misc]simplify:  iters left: 3 (108 enodes)
* * [misc]simplify:  iters left: 2 (330 enodes)
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 25 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (105 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (fabs (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (fabs (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 26 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (105 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 27 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 28 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt 1)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt 1))
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt 1))
* [exit]simplify:  Simplified to (sqrt (sqrt 1))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 29 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 30 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt 1) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqrt 1)
* [exit]simplify:  Simplified to (sqrt 1)
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 31 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (/ (sqrt (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))) (sqrt (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (60 enodes)
* * [misc]simplify:  iters left: 3 (206 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (* (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3) (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3)))))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (* (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3) (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3)))))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (91 enodes)
* * [misc]simplify:  iters left: 3 (340 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 32 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (/ (sqrt (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (53 enodes)
* * [misc]simplify:  iters left: 3 (194 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))))
* [enter]simplify:  Simplifying (sqrt (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (47 enodes)
* * [misc]simplify:  iters left: 3 (128 enodes)
* * [misc]simplify:  iters left: 2 (485 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 33 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 34 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (fabs (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * * [misc]progress:  [ 35 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (fabs (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * * [misc]progress:  [ 36 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* 1 (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * * [misc]progress:  [ 37 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (pow (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) 1/2))))>
* * * * [misc]progress:  [ 38 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (pow (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) 1))))>
* * * * [misc]progress:  [ 39 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (exp (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 40 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (log (exp (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (exp (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (exp (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (exp (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 41 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (* (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (* (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 42 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (cbrt (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (55 enodes)
* * [misc]simplify:  iters left: 3 (131 enodes)
* [exit]simplify:  Simplified to (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 43 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (* (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (328 enodes)
* [exit]simplify:  Simplified to (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [enter]simplify:  Simplifying (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 44 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 45 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (* (sqrt 1) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqrt 1)
* [exit]simplify:  Simplified to (sqrt 1)
* [enter]simplify:  Simplifying (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (41 enodes)
* * [misc]simplify:  iters left: 3 (101 enodes)
* * [misc]simplify:  iters left: 2 (324 enodes)
* [exit]simplify:  Simplified to (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))
* [exit]simplify:  Simplified to (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))
* * * * [misc]progress:  [ 46 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (/ (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))) (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (31 enodes)
* * [misc]simplify:  iters left: 4 (59 enodes)
* * [misc]simplify:  iters left: 3 (202 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (pow (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 3)))
* [exit]simplify:  Simplified to (sqrt (+ 1 (pow (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 3)))
* [enter]simplify:  Simplifying (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (90 enodes)
* * [misc]simplify:  iters left: 3 (337 enodes)
* [exit]simplify:  Simplified to (sqrt (+ (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (+ (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 47 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (/ (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (52 enodes)
* * [misc]simplify:  iters left: 3 (187 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (pow (/ (/ (/ U 2) J) (cos (/ K 2))) (+ 3 1))))
* [exit]simplify:  Simplified to (sqrt (- 1 (pow (/ (/ (/ U 2) J) (cos (/ K 2))) (+ 3 1))))
* [enter]simplify:  Simplifying (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (127 enodes)
* * [misc]simplify:  iters left: 2 (484 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))))
* * * * [misc]progress:  [ 48 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 49 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (fabs (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* * * * [misc]progress:  [ 50 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (* 1 (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* * * * [misc]progress:  [ 51 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (pow (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) 1/2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * * [misc]progress:  [ 52 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (pow (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) 1))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * * [misc]progress:  [ 53 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (exp (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 54 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (log (exp (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (exp (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (exp (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (exp (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 55 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (* (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (* (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 56 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (cbrt (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (55 enodes)
* * [misc]simplify:  iters left: 3 (131 enodes)
* [exit]simplify:  Simplified to (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 57 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (* (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (328 enodes)
* [exit]simplify:  Simplified to (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [enter]simplify:  Simplifying (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 58 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 59 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (* (sqrt 1) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqrt 1)
* [exit]simplify:  Simplified to (sqrt 1)
* [enter]simplify:  Simplifying (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (41 enodes)
* * [misc]simplify:  iters left: 3 (101 enodes)
* * [misc]simplify:  iters left: 2 (324 enodes)
* [exit]simplify:  Simplified to (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))
* [exit]simplify:  Simplified to (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))
* * * * [misc]progress:  [ 60 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (/ (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))) (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (31 enodes)
* * [misc]simplify:  iters left: 4 (59 enodes)
* * [misc]simplify:  iters left: 3 (202 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (pow (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 3)))
* [exit]simplify:  Simplified to (sqrt (+ 1 (pow (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 3)))
* [enter]simplify:  Simplifying (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (90 enodes)
* * [misc]simplify:  iters left: 3 (337 enodes)
* [exit]simplify:  Simplified to (sqrt (+ (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (+ (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 61 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (/ (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (52 enodes)
* * [misc]simplify:  iters left: 3 (187 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (pow (/ (/ (/ U 2) J) (cos (/ K 2))) (+ 3 1))))
* [exit]simplify:  Simplified to (sqrt (- 1 (pow (/ (/ (/ U 2) J) (cos (/ K 2))) (+ 3 1))))
* [enter]simplify:  Simplifying (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (127 enodes)
* * [misc]simplify:  iters left: 2 (484 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))))
* * * * [misc]progress:  [ 62 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 63 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (fabs (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * * [misc]progress:  [ 64 / 76 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (* 1 (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* * * * [misc]progress:  [ 65 / 76 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4))
* * [misc]simplify:  iters left: 6 (30 enodes)
* * [misc]simplify:  iters left: 5 (63 enodes)
* * [misc]simplify:  iters left: 4 (144 enodes)
* * [misc]simplify:  iters left: 3 (347 enodes)
* [exit]simplify:  Simplified to (* (* (cos (/ K 2)) (* (pow (+ (* (* J (* 1/2 U)) (* J (* 1/2 U))) 1) 1/4) (* J -2))) (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 66 / 76 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4))
* * [misc]simplify:  iters left: 6 (35 enodes)
* * [misc]simplify:  iters left: 5 (79 enodes)
* * [misc]simplify:  iters left: 4 (189 enodes)
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (pow (+ 1 (pow (exp 2) (- (log (/ 1/2 (cos (* 1/2 K)))) (+ (log U) (log J))))) 1/4))
* * * * [misc]progress:  [ 67 / 76 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4))
* * [misc]simplify:  iters left: 6 (36 enodes)
* * [misc]simplify:  iters left: 5 (78 enodes)
* * [misc]simplify:  iters left: 4 (183 enodes)
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (pow (+ 1 (pow (exp 2) (+ (+ (log (/ -1 U)) (log (/ -1 J))) (log (/ -1/2 (cos (* K -1/2))))))) 1/4))
* * * * [misc]progress:  [ 68 / 76 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (30 enodes)
* * [misc]simplify:  iters left: 5 (63 enodes)
* * [misc]simplify:  iters left: 4 (144 enodes)
* * [misc]simplify:  iters left: 3 (350 enodes)
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ 1 (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))))) (* (pow (+ (* (* (* 1/2 U) J) (* (* 1/2 U) J)) 1) 1/4) (* (* J -2) (cos (/ K 2)))))
* * * * [misc]progress:  [ 69 / 76 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (35 enodes)
* * [misc]simplify:  iters left: 5 (79 enodes)
* * [misc]simplify:  iters left: 4 (189 enodes)
* [exit]simplify:  Simplified to (* (* (sqrt (sqrt (+ 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2))))))) (* (* J -2) (cos (/ K 2)))) (pow (+ 1 (pow (exp 2) (- (log (/ 1/2 (cos (* K 1/2)))) (+ (log U) (log J))))) 1/4))
* * * * [misc]progress:  [ 70 / 76 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (36 enodes)
* * [misc]simplify:  iters left: 5 (78 enodes)
* * [misc]simplify:  iters left: 4 (183 enodes)
* [exit]simplify:  Simplified to (* (pow (+ (pow (exp 2) (+ (+ (log (/ -1 J)) (log (/ -1 U))) (log (/ -1/2 (cos (* -1/2 K)))))) 1) 1/4) (* (sqrt (sqrt (+ 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2))))))) (* (* J -2) (cos (/ K 2)))))
* * * * [misc]progress:  [ 71 / 76 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))))
* * [misc]simplify:  iters left: 6 (30 enodes)
* * [misc]simplify:  iters left: 5 (63 enodes)
* * [misc]simplify:  iters left: 4 (144 enodes)
* * [misc]simplify:  iters left: 3 (347 enodes)
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (* J (* 1/2 U)) (* J (* 1/2 U))) 1)))) (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 72 / 76 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U)))))))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))))))
* * [misc]simplify:  iters left: 6 (35 enodes)
* * [misc]simplify:  iters left: 5 (79 enodes)
* * [misc]simplify:  iters left: 4 (189 enodes)
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (sqrt (sqrt (+ 1 (pow (exp 2) (- (log (/ 1/2 (cos (* 1/2 K)))) (+ (log U) (log J))))))))
* * * * [misc]progress:  [ 73 / 76 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K)))))))))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))))))
* * [misc]simplify:  iters left: 6 (36 enodes)
* * [misc]simplify:  iters left: 5 (78 enodes)
* * [misc]simplify:  iters left: 4 (183 enodes)
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (sqrt (sqrt (+ 1 (pow (exp 2) (+ (+ (log (/ -1 U)) (log (/ -1 J))) (log (/ -1/2 (cos (* K -1/2))))))))))
* * * * [misc]progress:  [ 74 / 76 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (30 enodes)
* * [misc]simplify:  iters left: 5 (63 enodes)
* * [misc]simplify:  iters left: 4 (144 enodes)
* * [misc]simplify:  iters left: 3 (350 enodes)
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ 1 (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2))))))) (* (sqrt (sqrt (+ (* (* (* 1/2 U) J) (* (* 1/2 U) J)) 1))) (* (* J -2) (cos (/ K 2)))))
* * * * [misc]progress:  [ 75 / 76 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U)))))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U)))))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (35 enodes)
* * [misc]simplify:  iters left: 5 (79 enodes)
* * [misc]simplify:  iters left: 4 (189 enodes)
* [exit]simplify:  Simplified to (* (* (sqrt (sqrt (+ 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2))))))) (* (* J -2) (cos (/ K 2)))) (sqrt (sqrt (+ 1 (pow (exp 2) (- (log (/ 1/2 (cos (* K 1/2)))) (+ (log U) (log J))))))))
* * * * [misc]progress:  [ 76 / 76 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K)))))))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K)))))))))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (36 enodes)
* * [misc]simplify:  iters left: 5 (78 enodes)
* * [misc]simplify:  iters left: 4 (183 enodes)
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ (pow (exp 2) (+ (+ (log (/ -1 J)) (log (/ -1 U))) (log (/ -1/2 (cos (* -1/2 K)))))) 1))) (* (sqrt (sqrt (+ 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2))))))) (* (* J -2) (cos (/ K 2)))))
* * * [misc]progress:  adding candidates to table
* * [misc]progress:  iteration 3 / 4
* * * [misc]progress:  picking best candidate
* * * * [misc]pick:  Picked  #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * [misc]progress:  localizing error
* * * [misc]progress:  generating rewritten candidates
* * * * [misc]progress:  [ 1 / 4 ] rewriting at (2 2 2 1)
* * * * [misc]progress:  [ 2 / 4 ] rewriting at (2 2 1 2 1)
* * * * [misc]progress:  [ 3 / 4 ] rewriting at (2 2 1 1 1)
* * * * [misc]progress:  [ 4 / 4 ] rewriting at (2 1 2)
* * * [misc]progress:  generating series expansions
* * * * [misc]progress:  [ 1 / 4 ] generating series at (2 2 2 1)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) into (pow (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) into (pow (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) into (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) into (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) in J
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (* 1/2 K)) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (* 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (* 1/2 K))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (* 1/2 K)))) into (log (/ 1/2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (/ 1/2 (cos (* 1/2 K))))) into (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (log U) (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))) into (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) into (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) into (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (* 1/2 K)) J)) 2))) (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (* 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (* 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 2))) (/ 0 (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (pow (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) into (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) into (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 2))) (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ 1 (exp (* 2 (+ (log (/ 1 U)) (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K)))))))))) 1/4) into (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))) into (pow (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) into (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) into (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* -1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* -1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -1/2 (/ 1 (cos (/ 1/2 K)))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* -1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* -1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ -1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 2))) (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log (/ 1 (- U))) (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K)))))))))) 1) 1/4) into (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)
* * * * [misc]progress:  [ 2 / 4 ] generating series at (2 2 1 2 1)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) into (pow (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) into (pow (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) into (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) into (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) in J
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (* 1/2 K)) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (* 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (* 1/2 K))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (* 1/2 K)))) into (log (/ 1/2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (/ 1/2 (cos (* 1/2 K))))) into (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (log U) (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))) into (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) into (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) into (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (* 1/2 K)) J)) 2))) (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (* 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (* 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 2))) (/ 0 (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (pow (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) into (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) into (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 2))) (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ 1 (exp (* 2 (+ (log (/ 1 U)) (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K)))))))))) 1/4) into (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))) into (pow (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) into (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) into (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* -1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* -1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -1/2 (/ 1 (cos (/ 1/2 K)))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* -1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* -1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ -1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 2))) (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log (/ 1 (- U))) (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K)))))))))) 1) 1/4) into (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)
* * * * [misc]progress:  [ 3 / 4 ] generating series at (2 2 1 1 1)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) into (pow (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) into (pow (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) into (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) into (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) in J
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (* 1/2 K)) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (* 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (* 1/2 K))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (* 1/2 K)))) into (log (/ 1/2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (/ 1/2 (cos (* 1/2 K))))) into (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (log U) (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))) into (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) into (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) into (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (* 1/2 K)) J)) 2))) (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (* 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (* 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 2))) (/ 0 (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (pow (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) into (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) into (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 2))) (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ 1 (exp (* 2 (+ (log (/ 1 U)) (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K)))))))))) 1/4) into (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))) into (pow (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) into (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) into (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* -1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* -1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -1/2 (/ 1 (cos (/ 1/2 K)))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* -1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* -1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ -1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 2))) (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log (/ 1 (- U))) (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K)))))))))) 1) 1/4) into (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)
* * * * [misc]progress:  [ 4 / 4 ] generating series at (2 1 2)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))) into (pow (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) into (pow (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) into (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) into (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) in J
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (* 1/2 K)) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (* 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (* 1/2 K))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (* 1/2 K)))) into (log (/ 1/2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (/ 1/2 (cos (* 1/2 K))))) into (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (log U) (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))) into (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) into (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) into (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (* 1/2 K)) J)) 2))) (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (* 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (* 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) 2))) (/ 0 (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (pow (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) into (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) into (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) into (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4) into (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) 2))) (/ 0 (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ 1 (exp (* 2 (+ (log (/ 1 U)) (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K)))))))))) 1/4) into (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)
* [misc]approximate:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))) into (pow (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))) into (pow (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) into (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) into (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4)
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))))) into 0
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))) in J
* [misc]taylor:  Taking taylor expansion of 1/4 in J
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* -1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* -1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -1/2 (/ 1 (cos (/ 1/2 K)))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) in K
* [misc]taylor:  Taking taylor expansion of 1/4 in K
* [misc]backup-simplify:  Simplify 1/4 into 1/4
* [misc]taylor:  Taking taylor expansion of (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) into (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))
* [misc]backup-simplify:  Simplify (exp (* 1/4 (log (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4) into (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 1/4)
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* -1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* -1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (pow (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) 1/4))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ -1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) 2))) (/ 0 (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (pow (+ (exp (* 2 (+ (log (/ 1 (- U))) (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K)))))))))) 1) 1/4) into (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)
* * * [misc]progress:  simplifying candidates
* * * * [misc]progress:  [ 1 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (pow (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) 1/2)))))>
* * * * [misc]progress:  [ 2 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (pow (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1)))))>
* * * * [misc]progress:  [ 3 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (exp (log (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))))>
* [enter]simplify:  Simplifying (log (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (log (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (log (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 4 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (log (exp (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))))>
* [enter]simplify:  Simplifying (exp (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (exp (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (exp (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 5 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))))>
* [enter]simplify:  Simplifying (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (328 enodes)
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [enter]simplify:  Simplifying (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 6 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (cbrt (* (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))))>
* [enter]simplify:  Simplifying (* (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (48 enodes)
* * [misc]simplify:  iters left: 3 (108 enodes)
* * [misc]simplify:  iters left: 2 (330 enodes)
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 7 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (sqrt (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (105 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (fabs (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (fabs (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 8 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (sqrt (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (105 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 9 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 10 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (sqrt (sqrt 1)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt 1))
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt 1))
* [exit]simplify:  Simplified to (sqrt (sqrt 1))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 11 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 12 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (sqrt 1) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqrt 1)
* [exit]simplify:  Simplified to (sqrt 1)
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 13 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (/ (sqrt (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))) (sqrt (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (60 enodes)
* * [misc]simplify:  iters left: 3 (206 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (* (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3) (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3)))))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (* (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3) (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3)))))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (91 enodes)
* * [misc]simplify:  iters left: 3 (340 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 14 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (/ (sqrt (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (53 enodes)
* * [misc]simplify:  iters left: 3 (194 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))))
* [enter]simplify:  Simplifying (sqrt (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (47 enodes)
* * [misc]simplify:  iters left: 3 (128 enodes)
* * [misc]simplify:  iters left: 2 (485 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 15 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 16 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (fabs (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* * * * [misc]progress:  [ 17 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (fabs (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* * * * [misc]progress:  [ 18 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* 1 (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* * * * [misc]progress:  [ 19 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (pow (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) 1/2))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 20 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (pow (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 21 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (exp (log (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (log (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (log (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (log (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 22 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (log (exp (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (exp (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (exp (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (exp (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 23 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (328 enodes)
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [enter]simplify:  Simplifying (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 24 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (cbrt (* (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (48 enodes)
* * [misc]simplify:  iters left: 3 (108 enodes)
* * [misc]simplify:  iters left: 2 (330 enodes)
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 25 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (sqrt (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (105 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (fabs (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (fabs (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 26 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (sqrt (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (105 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 27 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 28 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (sqrt (sqrt 1)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt 1))
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt 1))
* [exit]simplify:  Simplified to (sqrt (sqrt 1))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 29 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 30 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (sqrt 1) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqrt 1)
* [exit]simplify:  Simplified to (sqrt 1)
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 31 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (/ (sqrt (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))) (sqrt (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (60 enodes)
* * [misc]simplify:  iters left: 3 (206 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (* (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3) (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3)))))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (* (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3) (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3)))))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (91 enodes)
* * [misc]simplify:  iters left: 3 (340 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 32 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (/ (sqrt (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (53 enodes)
* * [misc]simplify:  iters left: 3 (194 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))))
* [enter]simplify:  Simplifying (sqrt (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (47 enodes)
* * [misc]simplify:  iters left: 3 (128 enodes)
* * [misc]simplify:  iters left: 2 (485 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 33 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 34 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (fabs (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 35 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (fabs (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 36 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* 1 (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 37 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (pow (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) 1/2)) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 38 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (pow (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1)) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 39 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (exp (log (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (log (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (log (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (log (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 40 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (log (exp (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (exp (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (exp (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (exp (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 41 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (328 enodes)
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [enter]simplify:  Simplifying (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 42 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (cbrt (* (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (48 enodes)
* * [misc]simplify:  iters left: 3 (108 enodes)
* * [misc]simplify:  iters left: 2 (330 enodes)
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 43 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (* (sqrt (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (105 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (fabs (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (fabs (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 44 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (* (sqrt (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (105 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 45 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 46 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (* (sqrt (sqrt 1)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt 1))
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt 1))
* [exit]simplify:  Simplified to (sqrt (sqrt 1))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 47 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 48 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (* (sqrt 1) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqrt 1)
* [exit]simplify:  Simplified to (sqrt 1)
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 49 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (/ (sqrt (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))) (sqrt (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (60 enodes)
* * [misc]simplify:  iters left: 3 (206 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (* (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3) (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3)))))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (* (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3) (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3)))))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (91 enodes)
* * [misc]simplify:  iters left: 3 (340 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 50 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (/ (sqrt (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (53 enodes)
* * [misc]simplify:  iters left: 3 (194 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))))
* [enter]simplify:  Simplifying (sqrt (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (47 enodes)
* * [misc]simplify:  iters left: 3 (128 enodes)
* * [misc]simplify:  iters left: 2 (485 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 51 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 52 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (fabs (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 53 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (fabs (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 54 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (* 1 (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 55 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (pow (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) 1/2)) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 56 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (pow (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1)) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 57 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (exp (log (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (log (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (log (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (log (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 58 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (log (exp (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (exp (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (exp (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (exp (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 59 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (328 enodes)
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [enter]simplify:  Simplifying (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 60 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (cbrt (* (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (48 enodes)
* * [misc]simplify:  iters left: 3 (108 enodes)
* * [misc]simplify:  iters left: 2 (330 enodes)
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 61 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (105 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (fabs (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (fabs (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 62 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (45 enodes)
* * [misc]simplify:  iters left: 3 (105 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 63 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 64 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt 1)) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt 1))
* * [misc]simplify:  iters left: 2 (3 enodes)
* * [misc]simplify:  iters left: 1 (5 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt 1))
* [exit]simplify:  Simplified to (sqrt (sqrt 1))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 65 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 66 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt 1) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqrt 1)
* [exit]simplify:  Simplified to (sqrt 1)
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 67 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (/ (sqrt (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))) (sqrt (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (32 enodes)
* * [misc]simplify:  iters left: 4 (60 enodes)
* * [misc]simplify:  iters left: 3 (206 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (* (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3) (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3)))))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ 1 (* (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3) (pow (/ (/ U (* J 2)) (cos (/ K 2))) 3)))))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (91 enodes)
* * [misc]simplify:  iters left: 3 (340 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 68 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (/ (sqrt (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (27 enodes)
* * [misc]simplify:  iters left: 4 (53 enodes)
* * [misc]simplify:  iters left: 3 (194 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))))
* [enter]simplify:  Simplifying (sqrt (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (47 enodes)
* * [misc]simplify:  iters left: 3 (128 enodes)
* * [misc]simplify:  iters left: 2 (485 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 69 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 70 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (fabs (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 71 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (fabs (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 72 / 84 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (* 1 (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 73 / 84 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4))))
* * [misc]simplify:  iters left: 6 (34 enodes)
* * [misc]simplify:  iters left: 5 (72 enodes)
* * [misc]simplify:  iters left: 4 (177 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (cbrt (pow (+ (pow (exp 2) (+ (log 1/2) (+ (log U) (log J)))) 1) 1/4))) (* (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))))
* * * * [misc]progress:  [ 74 / 84 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4))))
* * [misc]simplify:  iters left: 6 (39 enodes)
* * [misc]simplify:  iters left: 5 (88 enodes)
* * [misc]simplify:  iters left: 4 (222 enodes)
* [exit]simplify:  Simplified to (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (* (cbrt (pow (+ (pow (exp 2) (- (log (/ 1/2 (cos (* 1/2 K)))) (+ (log U) (log J)))) 1) 1/4)) (* (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))))
* * * * [misc]progress:  [ 75 / 84 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4))))
* * [misc]simplify:  iters left: 6 (40 enodes)
* * [misc]simplify:  iters left: 5 (87 enodes)
* * [misc]simplify:  iters left: 4 (216 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (pow (+ 1 (pow (exp 2) (+ (+ (log (/ -1 J)) (log (/ -1 U))) (log (/ -1/2 (cos (* -1/2 K))))))) 1/4)) (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))))) (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))))
* * * * [misc]progress:  [ 76 / 84 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))
* * [misc]simplify:  iters left: 6 (34 enodes)
* * [misc]simplify:  iters left: 5 (72 enodes)
* * [misc]simplify:  iters left: 4 (174 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (pow (+ 1 (pow (exp 2) (+ (log U) (+ (log 1/2) (log J))))) 1/4)) (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))) (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))))
* * * * [misc]progress:  [ 77 / 84 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))
* * [misc]simplify:  iters left: 6 (39 enodes)
* * [misc]simplify:  iters left: 5 (87 enodes)
* * [misc]simplify:  iters left: 4 (217 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (* (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))))) (cbrt (pow (+ 1 (pow (exp 2) (- (log (/ 1/2 (cos (* K 1/2)))) (+ (log U) (log J))))) 1/4)))
* * * * [misc]progress:  [ 78 / 84 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))
* * [misc]simplify:  iters left: 6 (40 enodes)
* * [misc]simplify:  iters left: 5 (86 enodes)
* * [misc]simplify:  iters left: 4 (211 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (pow (+ (pow (exp 2) (+ (+ (log (/ -1 U)) (log (/ -1 J))) (log (/ -1/2 (cos (* -1/2 K)))))) 1) 1/4)) (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))))) (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))))
* * * * [misc]progress:  [ 79 / 84 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))
* * [misc]simplify:  iters left: 6 (34 enodes)
* * [misc]simplify:  iters left: 5 (73 enodes)
* * [misc]simplify:  iters left: 4 (178 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (pow (+ (pow (exp 2) (+ (log 1/2) (+ (log U) (log J)))) 1) 1/4)) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))) (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))))
* * * * [misc]progress:  [ 80 / 84 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))
* * [misc]simplify:  iters left: 6 (39 enodes)
* * [misc]simplify:  iters left: 5 (89 enodes)
* * [misc]simplify:  iters left: 4 (223 enodes)
* [exit]simplify:  Simplified to (* (cbrt (pow (+ 1 (pow (exp 2) (- (log (/ 1/2 (cos (* 1/2 K)))) (+ (log U) (log J))))) 1/4)) (* (* (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))) (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))))
* * * * [misc]progress:  [ 81 / 84 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))
* * [misc]simplify:  iters left: 6 (40 enodes)
* * [misc]simplify:  iters left: 5 (88 enodes)
* * [misc]simplify:  iters left: 4 (217 enodes)
* [exit]simplify:  Simplified to (* (* (* (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))) (cbrt (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))) (cbrt (pow (+ 1 (pow (exp 2) (+ (log (/ -1/2 (cos (* K -1/2)))) (+ (log (/ -1 U)) (log (/ -1 J)))))) 1/4)))
* * * * [misc]progress:  [ 82 / 84 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (pow (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1) 1/4)) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))
* * [misc]simplify:  iters left: 6 (33 enodes)
* * [misc]simplify:  iters left: 5 (69 enodes)
* * [misc]simplify:  iters left: 4 (168 enodes)
* * [misc]simplify:  iters left: 3 (481 enodes)
* [exit]simplify:  Simplified to (* (* (pow (+ (* (* (* U 1/2) J) (* (* U 1/2) J)) 1) 1/4) (* (* J -2) (cos (/ K 2)))) (sqrt (sqrt (+ 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))))))
* * * * [misc]progress:  [ 83 / 84 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (pow (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))) 1/4)) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))
* * [misc]simplify:  iters left: 6 (38 enodes)
* * [misc]simplify:  iters left: 5 (85 enodes)
* * [misc]simplify:  iters left: 4 (213 enodes)
* [exit]simplify:  Simplified to (* (pow (+ 1 (pow (exp 2) (- (log (/ 1/2 (cos (* K 1/2)))) (+ (log U) (log J))))) 1/4) (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))))))
* * * * [misc]progress:  [ 84 / 84 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (* (* -2 J) (cos (/ K 2))) (pow (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))) 1/4)) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))
* * [misc]simplify:  iters left: 6 (39 enodes)
* * [misc]simplify:  iters left: 5 (84 enodes)
* * [misc]simplify:  iters left: 4 (207 enodes)
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ 1 (* (/ (/ U (* J 2)) (cos (/ K 2))) (/ (/ U (* J 2)) (cos (/ K 2)))))))) (pow (+ (pow (exp 2) (+ (log (/ -1/2 (cos (* -1/2 K)))) (+ (log (/ -1 J)) (log (/ -1 U))))) 1) 1/4))
* * * [misc]progress:  adding candidates to table
* * [misc]progress:  iteration 4 / 4
* * * [misc]progress:  picking best candidate
* * * * [misc]pick:  Picked  #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* * * [misc]progress:  localizing error
* * * [misc]progress:  generating rewritten candidates
* * * * [misc]progress:  [ 1 / 4 ] rewriting at (2 2 1)
* * * * [misc]progress:  [ 2 / 4 ] rewriting at (2 1 2 1)
* * * * [misc]progress:  [ 3 / 4 ] rewriting at (2 1 1 1)
* * * * [misc]progress:  [ 4 / 4 ] rewriting at (2 2 1 2)
* * * [misc]progress:  generating series expansions
* * * * [misc]progress:  [ 1 / 4 ] generating series at (2 2 1)
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (* -2 (cos (* 1/2 K))) into (* -2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* -2 (cos (* 1/2 K))) (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) into (* -2 (* (cos (* 1/2 K)) (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1))))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (* 1/2 K)) (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ U (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ U (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ U (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* 1/2 U) into (* 1/2 U)
* [misc]backup-simplify:  Simplify (log (* 1/2 U)) into (log (* 1/2 U))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log (* 1/2 U)) (log J)) into (+ (log (* 1/2 U)) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (* 1/2 U)) (log J))) into (* 2 (+ (log (* 1/2 U)) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (* 1/2 U)) (log J)))) into (exp (* 2 (+ (log (* 1/2 U)) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (* 1/2 U)) (log J))))) into (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 U)) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* -2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))) into (* -2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)))
* [misc]taylor:  Taking taylor expansion of (* -2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)) in U
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (* 1/2 U)) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (* 1/2 U)) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (* 1/2 U)) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 U)) in U
* [misc]taylor:  Taking taylor expansion of (* 1/2 U) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]backup-simplify:  Simplify (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ U (cos (* 1/2 K)))) 2))) (/ 0 (* 1/2 (/ U (cos (* 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) J) into (* -2 (* J (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))))
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* -2 (cos (/ 1/2 K))) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (/ 1/2 K)) U))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (/ 1/2 K)) U)) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) U) into (* (cos (/ 1/2 K)) U)
* [misc]backup-simplify:  Simplify (/ 1/2 (* (cos (/ 1/2 K)) U)) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))
* [misc]backup-simplify:  Simplify (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) in U
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (/ 1/2 K)) U))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (/ 1/2 K)) U)) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (/ 1/2 (cos (/ 1/2 K))))) into (- (log (/ 1/2 (cos (/ 1/2 K)))) (log U))
* [misc]backup-simplify:  Simplify (+ (- (log (/ 1/2 (cos (/ 1/2 K)))) (log U)) (log J)) into (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))) into (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))) into (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))
* [misc]backup-simplify:  Simplify (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow J 2))) (/ 0 J)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (* (cos (/ 1/2 (/ 1 K))) (sqrt (+ (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K)))))) (log (/ 1 U))))) 1)))) (/ 1 (/ 1 J))) into (* -2 (* (* (cos (* 1/2 K)) J) (sqrt (+ 1 (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (* 1/2 K))))) (log (/ 1 U)))))))))
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))) into (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (* (cos (/ 1/2 K)) U))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (* (cos (/ 1/2 K)) U)) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) U) into (* (cos (/ 1/2 K)) U)
* [misc]backup-simplify:  Simplify (/ -1/2 (* (cos (/ 1/2 K)) U)) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))) into (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))) into (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (* (cos (/ 1/2 K)) U))) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (* (cos (/ 1/2 K)) U)) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (/ -1/2 (cos (/ 1/2 K))))) into (- (log (/ -1/2 (cos (/ 1/2 K)))) (log U))
* [misc]backup-simplify:  Simplify (+ (- (log (/ -1/2 (cos (/ 1/2 K)))) (log U)) (log J)) into (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))) into (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)) (cos (/ 1/2 K))) into (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))
* [misc]backup-simplify:  Simplify (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow J 2))) (/ 0 J)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* 2 (* (cos (/ 1/2 (/ 1 (- K)))) (sqrt (+ (exp (* 2 (- (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K))))))) (log (/ 1 (- U)))))) 1)))) (/ 1 (/ 1 (- J)))) into (* -2 (* (* (cos (* -1/2 K)) J) (sqrt (+ (exp (* 2 (- (+ (log (/ -1 J)) (log (/ -1/2 (cos (* -1/2 K))))) (log (/ -1 U))))) 1))))
* * * * [misc]progress:  [ 2 / 4 ] generating series at (2 1 2 1)
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (* -2 (cos (* 1/2 K))) into (* -2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* -2 (cos (* 1/2 K))) (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) into (* -2 (* (cos (* 1/2 K)) (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1))))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (* 1/2 K)) (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ U (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ U (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ U (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* 1/2 U) into (* 1/2 U)
* [misc]backup-simplify:  Simplify (log (* 1/2 U)) into (log (* 1/2 U))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log (* 1/2 U)) (log J)) into (+ (log (* 1/2 U)) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (* 1/2 U)) (log J))) into (* 2 (+ (log (* 1/2 U)) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (* 1/2 U)) (log J)))) into (exp (* 2 (+ (log (* 1/2 U)) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (* 1/2 U)) (log J))))) into (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 U)) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* -2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))) into (* -2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)))
* [misc]taylor:  Taking taylor expansion of (* -2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)) in U
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (* 1/2 U)) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (* 1/2 U)) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (* 1/2 U)) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 U)) in U
* [misc]taylor:  Taking taylor expansion of (* 1/2 U) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]backup-simplify:  Simplify (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ U (cos (* 1/2 K)))) 2))) (/ 0 (* 1/2 (/ U (cos (* 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) J) into (* -2 (* J (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))))
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* -2 (cos (/ 1/2 K))) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (/ 1/2 K)) U))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (/ 1/2 K)) U)) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) U) into (* (cos (/ 1/2 K)) U)
* [misc]backup-simplify:  Simplify (/ 1/2 (* (cos (/ 1/2 K)) U)) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))
* [misc]backup-simplify:  Simplify (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) in U
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (/ 1/2 K)) U))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (/ 1/2 K)) U)) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (/ 1/2 (cos (/ 1/2 K))))) into (- (log (/ 1/2 (cos (/ 1/2 K)))) (log U))
* [misc]backup-simplify:  Simplify (+ (- (log (/ 1/2 (cos (/ 1/2 K)))) (log U)) (log J)) into (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))) into (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))) into (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))
* [misc]backup-simplify:  Simplify (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow J 2))) (/ 0 J)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (* (cos (/ 1/2 (/ 1 K))) (sqrt (+ (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K)))))) (log (/ 1 U))))) 1)))) (/ 1 (/ 1 J))) into (* -2 (* (* (cos (* 1/2 K)) J) (sqrt (+ 1 (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (* 1/2 K))))) (log (/ 1 U)))))))))
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))) into (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (* (cos (/ 1/2 K)) U))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (* (cos (/ 1/2 K)) U)) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) U) into (* (cos (/ 1/2 K)) U)
* [misc]backup-simplify:  Simplify (/ -1/2 (* (cos (/ 1/2 K)) U)) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))) into (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))) into (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (* (cos (/ 1/2 K)) U))) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (* (cos (/ 1/2 K)) U)) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (/ -1/2 (cos (/ 1/2 K))))) into (- (log (/ -1/2 (cos (/ 1/2 K)))) (log U))
* [misc]backup-simplify:  Simplify (+ (- (log (/ -1/2 (cos (/ 1/2 K)))) (log U)) (log J)) into (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))) into (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)) (cos (/ 1/2 K))) into (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))
* [misc]backup-simplify:  Simplify (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow J 2))) (/ 0 J)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* 2 (* (cos (/ 1/2 (/ 1 (- K)))) (sqrt (+ (exp (* 2 (- (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K))))))) (log (/ 1 (- U)))))) 1)))) (/ 1 (/ 1 (- J)))) into (* -2 (* (* (cos (* -1/2 K)) J) (sqrt (+ (exp (* 2 (- (+ (log (/ -1 J)) (log (/ -1/2 (cos (* -1/2 K))))) (log (/ -1 U))))) 1))))
* * * * [misc]progress:  [ 3 / 4 ] generating series at (2 1 1 1)
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 J) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 J) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 J) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (* -2 (cos (* 1/2 K))) into (* -2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* -2 (cos (* 1/2 K))) (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))) into (* -2 (* (cos (* 1/2 K)) (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1))))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (* 1/2 K)) (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ U (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ U (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ U (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* 1/2 U) into (* 1/2 U)
* [misc]backup-simplify:  Simplify (log (* 1/2 U)) into (log (* 1/2 U))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log (* 1/2 U)) (log J)) into (+ (log (* 1/2 U)) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (* 1/2 U)) (log J))) into (* 2 (+ (log (* 1/2 U)) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (* 1/2 U)) (log J)))) into (exp (* 2 (+ (log (* 1/2 U)) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (* 1/2 U)) (log J))))) into (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 U)) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* -2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))) into (* -2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)))
* [misc]taylor:  Taking taylor expansion of (* -2 (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1)) in U
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log (* 1/2 U)) (log J)))) 1) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (* 1/2 U)) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (* 1/2 U)) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (* 1/2 U)) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 U)) in U
* [misc]taylor:  Taking taylor expansion of (* 1/2 U) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]backup-simplify:  Simplify (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) into (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ U (cos (* 1/2 K)))) 2))) (/ 0 (* 1/2 (/ U (cos (* 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))) J) into (* -2 (* J (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))))
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* -2 (cos (/ 1/2 K))) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (/ 1/2 K)) U))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (/ 1/2 K)) U)) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) U) into (* (cos (/ 1/2 K)) U)
* [misc]backup-simplify:  Simplify (/ 1/2 (* (cos (/ 1/2 K)) U)) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) into (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))
* [misc]backup-simplify:  Simplify (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))))
* [misc]taylor:  Taking taylor expansion of (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) in U
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (/ 1/2 K)) U))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (/ 1/2 K)) U)) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (/ 1/2 (cos (/ 1/2 K))))) into (- (log (/ 1/2 (cos (/ 1/2 K)))) (log U))
* [misc]backup-simplify:  Simplify (+ (- (log (/ 1/2 (cos (/ 1/2 K)))) (log U)) (log J)) into (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))) into (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))) into (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))
* [misc]backup-simplify:  Simplify (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* -2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow J 2))) (/ 0 J)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* -2 (* (cos (/ 1/2 (/ 1 K))) (sqrt (+ (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K)))))) (log (/ 1 U))))) 1)))) (/ 1 (/ 1 J))) into (* -2 (* (* (cos (* 1/2 K)) J) (sqrt (+ 1 (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (* 1/2 K))))) (log (/ 1 U)))))))))
* [misc]approximate:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in (J K U) around 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of -2 in U
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of -2 in K
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (* (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (* (* -2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* -2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of -2 in J
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* (* 2 (cos (/ 1/2 K))) (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))) into (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (* (cos (/ 1/2 K)) U))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (* (cos (/ 1/2 K)) U)) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in K
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (cos (/ 1/2 K)) U) into (* (cos (/ 1/2 K)) U)
* [misc]backup-simplify:  Simplify (/ -1/2 (* (cos (/ 1/2 K)) U)) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))) into (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))) into (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (* 2 (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K)))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (* (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) (cos (/ 1/2 K))) in U
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)) in U
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (* (cos (/ 1/2 K)) U))) in U
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (* (cos (/ 1/2 K)) U)) in U
* [misc]taylor:  Taking taylor expansion of -1/2 in U
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (/ 1/2 K)) U) in U
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (/ -1/2 (cos (/ 1/2 K))))) into (- (log (/ -1/2 (cos (/ 1/2 K)))) (log U))
* [misc]backup-simplify:  Simplify (+ (- (log (/ -1/2 (cos (/ 1/2 K)))) (log U)) (log J)) into (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))) into (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in U
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in U
* [misc]taylor:  Taking taylor expansion of 1/2 in U
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)) (cos (/ 1/2 K))) into (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))
* [misc]backup-simplify:  Simplify (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1)))) into (* 2 (* (cos (/ 1/2 K)) (sqrt (+ (exp (* 2 (- (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)))) 1))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* (cos (/ 1/2 K)) U)) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (* (cos (/ 1/2 K)) U)) 2))) (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U)))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow J 2))) (/ 0 J)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (* 2 (* (cos (/ 1/2 (/ 1 (- K)))) (sqrt (+ (exp (* 2 (- (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K))))))) (log (/ 1 (- U)))))) 1)))) (/ 1 (/ 1 (- J)))) into (* -2 (* (* (cos (* -1/2 K)) J) (sqrt (+ (exp (* 2 (- (+ (log (/ -1 J)) (log (/ -1/2 (cos (* -1/2 K))))) (log (/ -1 U))))) 1))))
* * * * [misc]progress:  [ 4 / 4 ] generating series at (2 2 1 2)
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 J) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ K 2) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (/ U (* 2 J)) into (* 1/2 (/ U J))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U J))) into (log (* 1/2 (/ U J)))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ U J)))) into (* 2 (log (* 1/2 (/ U J))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ U J))))) into (pow (* 1/2 (/ U J)) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ U J)) 2)) into (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))) into (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2)))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 J)) (* (* 1/2 (/ U J)) (/ 0 (* 2 J)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U J))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (* 1/4 (/ (pow U 2) (pow J 2))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 J) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ K 2) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (* 2 (cos (* 1/2 K))) into (* 2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (/ U (* 2 (cos (* 1/2 K)))) into (* 1/2 (/ U (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ U (cos (* 1/2 K))))) into (log (* 1/2 (/ U (cos (* 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))) into (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (* 1/2 K)))) (* (* 1/2 (/ U (cos (* 1/2 K)))) (/ 0 (* 2 (cos (* 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ U (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (* 1/2 (/ U (cos (* 1/2 K)))))) into (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* 1/2 (/ U (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ U (* (* 2 J) (cos (/ K 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ U (* (* 2 J) (cos (/ K 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ U (* (* 2 J) (cos (/ K 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ U (* (* 2 J) (cos (/ K 2)))) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 J) (cos (/ K 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 J) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]taylor:  Taking taylor expansion of (cos (/ K 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ K 2) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ K 2) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 J) into (* 2 J)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (* (* 2 J) (cos (* 1/2 K))) into (* 2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (* (cos (* 1/2 K)) J))) into (/ 1/2 (* (cos (* 1/2 K)) J))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (* 1/2 K)) J))) into (log (/ 1/2 (* (cos (* 1/2 K)) J)))
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) into (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) into (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))))) into (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J))) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) in J
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (* (cos (* 1/2 K)) J))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (* (cos (* 1/2 K)) J)) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (* (cos (* 1/2 K)) J) in J
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* 1/2 K) into (* 1/2 K)
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (sin (* 1/2 K)) into (sin (* 1/2 K))
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (* 1/2 K)) into (cos (* 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (* 1/2 K))) into (/ 1/2 (cos (* 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (* 1/2 K)))) into (log (/ 1/2 (cos (* 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log J)) (log (/ 1/2 (cos (* 1/2 K))))) into (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))
* [misc]backup-simplify:  Simplify (+ (log U) (- (log (/ 1/2 (cos (* 1/2 K)))) (log J))) into (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) into (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) into (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))))) into (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (* 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)) in K
* [misc]taylor:  Taking taylor expansion of (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (* 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (* 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (* 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (* 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (log 1/2) into (log 1/2)
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (log U) (log 1/2)) into (+ (log U) (log 1/2))
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]backup-simplify:  Simplify (+ (+ (log U) (log 1/2)) (log J)) into (+ (log U) (+ (log J) (log 1/2)))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log 1/2)))) into (* 2 (+ (log U) (+ (log J) (log 1/2))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) into (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log 1/2)))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (* (cos (* 1/2 K)) J))) (* (/ 1/2 (* (cos (* 1/2 K)) J)) (/ 0 (* 2 (* (cos (* 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (* (cos (* 1/2 K)) J)) 2))) (/ 0 (/ 1/2 (* (cos (* 1/2 K)) J)))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))) into (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (log (/ 1/2 (* (cos (* 1/2 K)) J)))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (* 1/2 K))) (* (/ 1/2 (cos (* 1/2 K))) (/ 0 (cos (* 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (* 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (* 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (+ (log U) (log (/ 1/2 (cos (* 1/2 K))))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 K) 2)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K))))))) into (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* U (cos (/ 1/2 K)))))))) into (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* U (cos (/ 1/2 K))))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ 1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ 1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow U 2) (pow (cos (/ 1/2 K)) 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (cos (/ 1/2 K))) into (* 2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (cos (/ 1/2 K)))) into (/ 1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (* (cos (/ 1/2 K)) U))) into (log (/ 1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)) into (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1))
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (cos (/ 1/2 K)))) (* (/ 1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* 2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log (/ 1/2 (* (cos (/ 1/2 K)) U))) (log J)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 U) (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 J)) (cos (/ (/ 1 K) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 J)) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 K) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 K) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ 1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* 1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (cos (/ 1/2 K))))) into (log (* 1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) into (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))))) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* 1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* 1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* 1/2 (/ 1 (cos (/ 1/2 K)))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ 1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1/2 (cos (/ 1/2 K))) into (/ 1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ 1/2 (cos (/ 1/2 K)))) into (log (/ 1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))) into (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ 1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K))))))))))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* 1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* 1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* 1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* 1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (- (log (* 1/2 (/ J (cos (/ 1/2 K))))) (log U)))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ 1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ 1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ 1/2 (cos (/ 1/2 K)))))))))))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 U)) (+ (log (/ 1 J)) (log (/ 1/2 (cos (/ 1/2 (/ 1 K))))))))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))))
* [misc]approximate:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in (U J K) around 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in K
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in K
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in K
* [misc]taylor:  Taking taylor expansion of (- U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in K
* [misc]taylor:  Taking taylor expansion of (- J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in K
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in K
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in K
* [misc]taylor:  Taking taylor expansion of (- K) in K
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]backup-simplify:  Simplify (cos (/ (/ 1 (- K)) 2)) into (cos (/ -1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ -1/2 K))) into (* 2 (/ (cos (/ -1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* 2 (/ (cos (/ -1/2 K)) J))) into (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))
* [misc]backup-simplify:  Simplify (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))
* [misc]backup-simplify:  Simplify (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U))))) into (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))
* [misc]backup-simplify:  Simplify (exp (* 2 (log (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))))) into (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)
* [misc]backup-simplify:  Simplify (+ 1 (pow (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) 2)) into (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)) into (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))) (* (* 1/2 (/ J (* (cos (/ -1/2 K)) U))) (/ 0 (* 2 (/ (cos (/ -1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 1/2 (/ J (* (cos (/ -1/2 K)) U)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (* 1/4 (/ (pow J 2) (* (pow (cos (/ -1/2 K)) 2) (pow U 2)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in J
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in J
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in J
* [misc]taylor:  Taking taylor expansion of (- U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (/ 1 U) into (/ 1 U)
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in J
* [misc]taylor:  Taking taylor expansion of (- J) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in J
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in J
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in J
* [misc]taylor:  Taking taylor expansion of (- K) in J
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify -2 into -2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* -2 (cos (/ 1/2 K))) into (* -2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (/ (/ 1 U) (* -2 (cos (/ 1/2 K)))) into (/ -1/2 (* (cos (/ 1/2 K)) U))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (* (cos (/ 1/2 K)) U))) into (log (/ -1/2 (* (cos (/ 1/2 K)) U)))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))) into (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))) into (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))) into (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))
* [misc]backup-simplify:  Simplify (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))))))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (* (/ 1 U) (/ 0 U)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* -2 (cos (/ 1/2 K)))) (* (/ -1/2 (* (cos (/ 1/2 K)) U)) (/ 0 (* -2 (cos (/ 1/2 K)))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (* (cos (/ 1/2 K)) U))) into 0
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (* (cos (/ 1/2 K)) U)))) into (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ 1 (exp (* 2 (+ (log (/ -1/2 (* (cos (/ 1/2 K)) U))) (log J)))))))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2))) in U
* [misc]taylor:  Taking taylor expansion of (+ 1 (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2)) in U
* [misc]taylor:  Taking taylor expansion of 1 in U
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (pow (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) 2) in U
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (log (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))))) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- U)) (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2)))) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- U)) in U
* [misc]taylor:  Taking taylor expansion of (- U) in U
* [misc]taylor:  Taking taylor expansion of U in U
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]taylor:  Taking taylor expansion of (* (* 2 (/ 1 (- J))) (cos (/ (/ 1 (- K)) 2))) in U
* [misc]taylor:  Taking taylor expansion of (* 2 (/ 1 (- J))) in U
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (/ 1 (- J)) in U
* [misc]taylor:  Taking taylor expansion of (- J) in U
* [misc]taylor:  Taking taylor expansion of J in U
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (/ 1 J) into (/ 1 J)
* [misc]taylor:  Taking taylor expansion of (cos (/ (/ 1 (- K)) 2)) in U
* [misc]taylor:  Taking taylor expansion of (/ (/ 1 (- K)) 2) in U
* [misc]taylor:  Taking taylor expansion of (/ 1 (- K)) in U
* [misc]taylor:  Taking taylor expansion of (- K) in U
* [misc]taylor:  Taking taylor expansion of K in U
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1 K) into (/ 1 K)
* [misc]taylor:  Taking taylor expansion of 2 in U
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]backup-simplify:  Simplify (/ (/ 1 K) 2) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* 2 (/ 1 J)) into (/ 2 J)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (* (/ 2 J) (cos (/ 1/2 K))) into (* 2 (/ (cos (/ 1/2 K)) J))
* [misc]backup-simplify:  Simplify (/ -1 (* 2 (/ (cos (/ 1/2 K)) J))) into (* -1/2 (/ J (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (log (* -1/2 (/ J (cos (/ 1/2 K))))) into (log (* -1/2 (/ J (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) into (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))
* [misc]backup-simplify:  Simplify (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) into (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))))) into (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) into (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (* -1/2 (/ J (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)) in J
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1) in J
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) in J
* [misc]taylor:  Taking taylor expansion of (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))) in J
* [misc]taylor:  Taking taylor expansion of 2 in J
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)) in J
* [misc]taylor:  Taking taylor expansion of (log (* -1/2 (/ J (cos (/ 1/2 K))))) in J
* [misc]taylor:  Taking taylor expansion of (* -1/2 (/ J (cos (/ 1/2 K)))) in J
* [misc]taylor:  Taking taylor expansion of -1/2 in J
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (/ J (cos (/ 1/2 K))) in J
* [misc]taylor:  Taking taylor expansion of J in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in J
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in J
* [misc]taylor:  Taking taylor expansion of 1/2 in J
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in J
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (/ 1/2 K) into (/ 1/2 K)
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (sin (/ 1/2 K)) into (sin (/ 1/2 K))
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ 1 (cos (/ 1/2 K))) into (/ 1 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (* -1/2 (/ 1 (cos (/ 1/2 K)))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]taylor:  Taking taylor expansion of (log U) in J
* [misc]taylor:  Taking taylor expansion of U in J
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]backup-simplify:  Simplify (+ (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) (log U)) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in J
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) in K
* [misc]taylor:  Taking taylor expansion of (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1) in K
* [misc]taylor:  Taking taylor expansion of (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) in K
* [misc]taylor:  Taking taylor expansion of (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) in K
* [misc]taylor:  Taking taylor expansion of 2 in K
* [misc]backup-simplify:  Simplify 2 into 2
* [misc]taylor:  Taking taylor expansion of (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) in K
* [misc]taylor:  Taking taylor expansion of (log U) in K
* [misc]taylor:  Taking taylor expansion of U in K
* [misc]backup-simplify:  Simplify U into U
* [misc]backup-simplify:  Simplify (log U) into (log U)
* [misc]taylor:  Taking taylor expansion of (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) in K
* [misc]taylor:  Taking taylor expansion of (log J) in K
* [misc]taylor:  Taking taylor expansion of J in K
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (log J) into (log J)
* [misc]taylor:  Taking taylor expansion of (log (/ -1/2 (cos (/ 1/2 K)))) in K
* [misc]taylor:  Taking taylor expansion of (/ -1/2 (cos (/ 1/2 K))) in K
* [misc]taylor:  Taking taylor expansion of -1/2 in K
* [misc]backup-simplify:  Simplify -1/2 into -1/2
* [misc]taylor:  Taking taylor expansion of (cos (/ 1/2 K)) in K
* [misc]taylor:  Taking taylor expansion of (/ 1/2 K) in K
* [misc]taylor:  Taking taylor expansion of 1/2 in K
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]taylor:  Taking taylor expansion of K in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify 1/2 into 1/2
* [misc]backup-simplify:  Simplify (cos (/ 1/2 K)) into (cos (/ 1/2 K))
* [misc]backup-simplify:  Simplify (/ -1/2 (cos (/ 1/2 K))) into (/ -1/2 (cos (/ 1/2 K)))
* [misc]backup-simplify:  Simplify (log (/ -1/2 (cos (/ 1/2 K)))) into (log (/ -1/2 (cos (/ 1/2 K))))
* [misc]backup-simplify:  Simplify (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))) into (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))
* [misc]backup-simplify:  Simplify (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))) into (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))
* [misc]backup-simplify:  Simplify (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))) into (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))
* [misc]backup-simplify:  Simplify (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) into (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))
* [misc]taylor:  Taking taylor expansion of 1 in K
* [misc]backup-simplify:  Simplify 1 into 1
* [misc]backup-simplify:  Simplify (+ 1 (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K))))))))) into (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]backup-simplify:  Simplify (/ 0 U) into 0
* [misc]backup-simplify:  Simplify (/ 0 J) into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ -1/2 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify (/ 0 (/ -1/2 (cos (/ 1/2 K)))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)) into (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1))
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify -1 into -1
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify K into K
* [misc]backup-simplify:  Simplify (* (/ 1 K) (/ 0 K)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify J into J
* [misc]backup-simplify:  Simplify (* (/ 1 J) (/ 0 J)) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))) (* (* -1/2 (/ J (cos (/ 1/2 K)))) (/ 0 (* 2 (/ (cos (/ 1/2 K)) J))))) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (* -1/2 (/ J (cos (/ 1/2 K)))) 2))) (/ 0 (* -1/2 (/ J (cos (/ 1/2 K)))))) 2) into 0
* [misc]backup-simplify:  Simplify (+ (* -1 (log U)) (log (* -1/2 (/ J (cos (/ 1/2 K)))))) into (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U))
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (- (log (* -1/2 (/ J (cos (/ 1/2 K))))) (log U)))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in J
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 K) (* (/ 1/2 K) (/ 0 K))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (+ (/ 0 (cos (/ 1/2 K))) (* (/ 1 (cos (/ 1/2 K))) (/ 0 (cos (/ 1/2 K))))) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow (/ -1/2 (cos (/ 1/2 K))) 2))) (/ 0 (/ -1/2 (cos (/ 1/2 K))))) 2) into 0
* [misc]backup-simplify:  Simplify (/ (+ (* -1 (/ 0 (pow U 2))) (/ 0 U)) 2) into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (/ 0 (* 2 (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log (/ -1/2 (cos (/ 1/2 K)))))))) 1)))) into 0
* [misc]taylor:  Taking taylor expansion of 0 in K
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify 0 into 0
* [misc]backup-simplify:  Simplify (sqrt (+ (exp (* 2 (+ (log (/ 1 (- U))) (+ (log (/ 1 (- J))) (log (/ -1/2 (cos (/ 1/2 (/ 1 (- K)))))))))) 1)) into (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))))
* * * [misc]progress:  simplifying candidates
* * * * [misc]progress:  [ 1 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (70 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (391 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 2 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (70 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (391 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 3 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1))))>
* * * * [misc]progress:  [ 4 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (exp (+ (+ (log (* -2 J)) (log (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (+ (+ (log (* -2 J)) (log (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (38 enodes)
* * [misc]simplify:  iters left: 4 (69 enodes)
* * [misc]simplify:  iters left: 3 (153 enodes)
* * [misc]simplify:  iters left: 2 (404 enodes)
* [exit]simplify:  Simplified to (+ (+ (log (cos (/ K 2))) (log (* J -2))) (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (+ (+ (log (cos (/ K 2))) (log (* J -2))) (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 5 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (exp (+ (log (* (* -2 J) (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (+ (log (* (* -2 J) (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (68 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (401 enodes)
* [exit]simplify:  Simplified to (+ (log (sqrt (+ 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2))))))) (log (* (* J -2) (cos (/ K 2)))))
* [exit]simplify:  Simplified to (+ (log (sqrt (+ 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2))))))) (log (* (* J -2) (cos (/ K 2)))))
* * * * [misc]progress:  [ 6 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (exp (log (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (log (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (82 enodes)
* * [misc]simplify:  iters left: 3 (200 enodes)
* * [misc]simplify:  iters left: 2 (471 enodes)
* [exit]simplify:  Simplified to (log (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (log (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 7 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (log (exp (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (exp (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (79 enodes)
* * [misc]simplify:  iters left: 3 (166 enodes)
* * [misc]simplify:  iters left: 2 (407 enodes)
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 8 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (cbrt (* (* (* (* (* -2 J) (* -2 J)) (* -2 J)) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (* -2 J)) (* -2 J)) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (23 enodes)
* * [misc]simplify:  iters left: 5 (53 enodes)
* * [misc]simplify:  iters left: 4 (182 enodes)
* [exit]simplify:  Simplified to (* (+ (* (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2)))) (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2))))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (+ (* (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2)))) (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2))))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 9 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (cbrt (* (* (* (* (* -2 J) (cos (/ K 2))) (* (* -2 J) (cos (/ K 2)))) (* (* -2 J) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (cos (/ K 2))) (* (* -2 J) (cos (/ K 2)))) (* (* -2 J) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (47 enodes)
* * [misc]simplify:  iters left: 4 (154 enodes)
* [exit]simplify:  Simplified to (* (+ (* (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) (pow (* (* J -2) (cos (/ K 2))) 3)) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (+ (* (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) (pow (* (* J -2) (cos (/ K 2))) 3)) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 10 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (72 enodes)
* * [misc]simplify:  iters left: 3 (158 enodes)
* * [misc]simplify:  iters left: 2 (390 enodes)
* [exit]simplify:  Simplified to (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [exit]simplify:  Simplified to (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [enter]simplify:  Simplifying (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 11 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (cbrt (* (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (42 enodes)
* * [misc]simplify:  iters left: 4 (112 enodes)
* * [misc]simplify:  iters left: 3 (430 enodes)
* [exit]simplify:  Simplified to (* (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 12 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 13 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 14 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (83 enodes)
* * [misc]simplify:  iters left: 3 (207 enodes)
* * [misc]simplify:  iters left: 2 (478 enodes)
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 15 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (73 enodes)
* * [misc]simplify:  iters left: 3 (162 enodes)
* * [misc]simplify:  iters left: 2 (394 enodes)
* [exit]simplify:  Simplified to (* (fabs (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (* (* J -2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (fabs (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 16 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 17 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (sqrt 1)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt 1))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (40 enodes)
* * [misc]simplify:  iters left: 3 (66 enodes)
* * [misc]simplify:  iters left: 2 (82 enodes)
* [exit]simplify:  Simplified to (* (* (sqrt 1) (* J -2)) (cos (/ K 2)))
* [exit]simplify:  Simplified to (* (* (sqrt 1) (* J -2)) (cos (/ K 2)))
* * * * [misc]progress:  [ 18 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 19 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* (* -2 J) (cos (/ K 2))) 1) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) 1)
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (34 enodes)
* * [misc]simplify:  iters left: 3 (53 enodes)
* * [misc]simplify:  iters left: 2 (58 enodes)
* * [misc]simplify:  iters left: 1 (60 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* * * * [misc]progress:  [ 20 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* -2 J) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (326 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))) (cos (/ K 2)))
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))) (cos (/ K 2)))
* * * * [misc]progress:  [ 21 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (/ (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))) (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (41 enodes)
* * [misc]simplify:  iters left: 4 (88 enodes)
* * [misc]simplify:  iters left: 3 (261 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (pow (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 3))) (* (* J -2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (pow (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 3))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 22 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (/ (* (* (* -2 J) (cos (/ K 2))) (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (81 enodes)
* * [misc]simplify:  iters left: 3 (250 enodes)
* [exit]simplify:  Simplified to (* (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))) (* (* J -2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 23 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (* (* -2 J) (cos (/ K 2)))))))>
* * * * [misc]progress:  [ 24 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (70 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (391 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 25 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (70 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (391 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 26 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* * * * [misc]progress:  [ 27 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (exp (+ (+ (log (* -2 J)) (log (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (+ (+ (log (* -2 J)) (log (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (38 enodes)
* * [misc]simplify:  iters left: 4 (69 enodes)
* * [misc]simplify:  iters left: 3 (153 enodes)
* * [misc]simplify:  iters left: 2 (404 enodes)
* [exit]simplify:  Simplified to (+ (+ (log (cos (/ K 2))) (log (* J -2))) (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (+ (+ (log (cos (/ K 2))) (log (* J -2))) (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 28 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (exp (+ (log (* (* -2 J) (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (+ (log (* (* -2 J) (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (68 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (401 enodes)
* [exit]simplify:  Simplified to (+ (log (sqrt (+ 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2))))))) (log (* (* J -2) (cos (/ K 2)))))
* [exit]simplify:  Simplified to (+ (log (sqrt (+ 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2))))))) (log (* (* J -2) (cos (/ K 2)))))
* * * * [misc]progress:  [ 29 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (exp (log (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (log (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (82 enodes)
* * [misc]simplify:  iters left: 3 (200 enodes)
* * [misc]simplify:  iters left: 2 (471 enodes)
* [exit]simplify:  Simplified to (log (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (log (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 30 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (log (exp (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (exp (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (79 enodes)
* * [misc]simplify:  iters left: 3 (166 enodes)
* * [misc]simplify:  iters left: 2 (407 enodes)
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 31 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (cbrt (* (* (* (* (* -2 J) (* -2 J)) (* -2 J)) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (* -2 J)) (* -2 J)) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (23 enodes)
* * [misc]simplify:  iters left: 5 (53 enodes)
* * [misc]simplify:  iters left: 4 (182 enodes)
* [exit]simplify:  Simplified to (* (+ (* (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2)))) (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2))))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (+ (* (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2)))) (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2))))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 32 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (cbrt (* (* (* (* (* -2 J) (cos (/ K 2))) (* (* -2 J) (cos (/ K 2)))) (* (* -2 J) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (cos (/ K 2))) (* (* -2 J) (cos (/ K 2)))) (* (* -2 J) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (47 enodes)
* * [misc]simplify:  iters left: 4 (154 enodes)
* [exit]simplify:  Simplified to (* (+ (* (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) (pow (* (* J -2) (cos (/ K 2))) 3)) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (+ (* (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) (pow (* (* J -2) (cos (/ K 2))) 3)) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 33 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (72 enodes)
* * [misc]simplify:  iters left: 3 (158 enodes)
* * [misc]simplify:  iters left: 2 (390 enodes)
* [exit]simplify:  Simplified to (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [exit]simplify:  Simplified to (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [enter]simplify:  Simplifying (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 34 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (cbrt (* (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (42 enodes)
* * [misc]simplify:  iters left: 4 (112 enodes)
* * [misc]simplify:  iters left: 3 (430 enodes)
* [exit]simplify:  Simplified to (* (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 35 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 36 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* * * * [misc]progress:  [ 37 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (83 enodes)
* * [misc]simplify:  iters left: 3 (207 enodes)
* * [misc]simplify:  iters left: 2 (478 enodes)
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 38 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (73 enodes)
* * [misc]simplify:  iters left: 3 (162 enodes)
* * [misc]simplify:  iters left: 2 (394 enodes)
* [exit]simplify:  Simplified to (* (fabs (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (* (* J -2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (fabs (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 39 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 40 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (sqrt 1)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt 1))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (40 enodes)
* * [misc]simplify:  iters left: 3 (66 enodes)
* * [misc]simplify:  iters left: 2 (82 enodes)
* [exit]simplify:  Simplified to (* (* (sqrt 1) (* J -2)) (cos (/ K 2)))
* [exit]simplify:  Simplified to (* (* (sqrt 1) (* J -2)) (cos (/ K 2)))
* * * * [misc]progress:  [ 41 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 42 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* (* -2 J) (cos (/ K 2))) 1) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) 1)
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (34 enodes)
* * [misc]simplify:  iters left: 3 (53 enodes)
* * [misc]simplify:  iters left: 2 (58 enodes)
* * [misc]simplify:  iters left: 1 (60 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* * * * [misc]progress:  [ 43 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* -2 J) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (326 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))) (cos (/ K 2)))
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))) (cos (/ K 2)))
* * * * [misc]progress:  [ 44 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (/ (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))) (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (41 enodes)
* * [misc]simplify:  iters left: 4 (88 enodes)
* * [misc]simplify:  iters left: 3 (261 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (pow (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 3))) (* (* J -2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (pow (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 3))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 45 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (/ (* (* (* -2 J) (cos (/ K 2))) (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (81 enodes)
* * [misc]simplify:  iters left: 3 (250 enodes)
* [exit]simplify:  Simplified to (* (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))) (* (* J -2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 46 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (* (* -2 J) (cos (/ K 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* * * * [misc]progress:  [ 47 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1)) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (70 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (391 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 48 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1)) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (33 enodes)
* * [misc]simplify:  iters left: 4 (70 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (391 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 49 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (pow (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) 1)) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* * * * [misc]progress:  [ 50 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (exp (+ (+ (log (* -2 J)) (log (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (+ (+ (log (* -2 J)) (log (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (38 enodes)
* * [misc]simplify:  iters left: 4 (69 enodes)
* * [misc]simplify:  iters left: 3 (153 enodes)
* * [misc]simplify:  iters left: 2 (404 enodes)
* [exit]simplify:  Simplified to (+ (+ (log (cos (/ K 2))) (log (* J -2))) (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (+ (+ (log (cos (/ K 2))) (log (* J -2))) (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 51 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (exp (+ (log (* (* -2 J) (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (+ (log (* (* -2 J) (cos (/ K 2)))) (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (68 enodes)
* * [misc]simplify:  iters left: 3 (154 enodes)
* * [misc]simplify:  iters left: 2 (401 enodes)
* [exit]simplify:  Simplified to (+ (log (sqrt (+ 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2))))))) (log (* (* J -2) (cos (/ K 2)))))
* [exit]simplify:  Simplified to (+ (log (sqrt (+ 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2))))))) (log (* (* J -2) (cos (/ K 2)))))
* * * * [misc]progress:  [ 52 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (exp (log (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (log (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (82 enodes)
* * [misc]simplify:  iters left: 3 (200 enodes)
* * [misc]simplify:  iters left: 2 (471 enodes)
* [exit]simplify:  Simplified to (log (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (log (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 53 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (log (exp (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (exp (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (79 enodes)
* * [misc]simplify:  iters left: 3 (166 enodes)
* * [misc]simplify:  iters left: 2 (407 enodes)
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (pow (pow (exp (* J -2)) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 54 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (cbrt (* (* (* (* (* -2 J) (* -2 J)) (* -2 J)) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (* -2 J)) (* -2 J)) (* (* (cos (/ K 2)) (cos (/ K 2))) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (23 enodes)
* * [misc]simplify:  iters left: 5 (53 enodes)
* * [misc]simplify:  iters left: 4 (182 enodes)
* [exit]simplify:  Simplified to (* (+ (* (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2)))) (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2))))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (+ (* (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2)))) (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))) (* (* (cos (/ K 2)) (pow (* J -2) 3)) (* (cos (/ K 2)) (cos (/ K 2))))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 55 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (cbrt (* (* (* (* (* -2 J) (cos (/ K 2))) (* (* -2 J) (cos (/ K 2)))) (* (* -2 J) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (cos (/ K 2))) (* (* -2 J) (cos (/ K 2)))) (* (* -2 J) (cos (/ K 2)))) (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (21 enodes)
* * [misc]simplify:  iters left: 5 (47 enodes)
* * [misc]simplify:  iters left: 4 (154 enodes)
* [exit]simplify:  Simplified to (* (+ (* (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) (pow (* (* J -2) (cos (/ K 2))) 3)) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (+ (* (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) (pow (* (* J -2) (cos (/ K 2))) 3)) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 56 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (35 enodes)
* * [misc]simplify:  iters left: 4 (72 enodes)
* * [misc]simplify:  iters left: 3 (158 enodes)
* * [misc]simplify:  iters left: 2 (390 enodes)
* [exit]simplify:  Simplified to (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [exit]simplify:  Simplified to (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* [enter]simplify:  Simplifying (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 57 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (cbrt (* (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (42 enodes)
* * [misc]simplify:  iters left: 4 (112 enodes)
* * [misc]simplify:  iters left: 3 (430 enodes)
* [exit]simplify:  Simplified to (* (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 58 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (sqrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 59 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* 1 (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* * * * [misc]progress:  [ 60 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (37 enodes)
* * [misc]simplify:  iters left: 4 (83 enodes)
* * [misc]simplify:  iters left: 3 (207 enodes)
* * [misc]simplify:  iters left: 2 (478 enodes)
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (* (* (* J -2) (cos (/ K 2))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 61 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (73 enodes)
* * [misc]simplify:  iters left: 3 (162 enodes)
* * [misc]simplify:  iters left: 2 (394 enodes)
* [exit]simplify:  Simplified to (* (fabs (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (* (* J -2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (fabs (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 62 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 63 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (sqrt 1)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt 1))
* * [misc]simplify:  iters left: 6 (11 enodes)
* * [misc]simplify:  iters left: 5 (20 enodes)
* * [misc]simplify:  iters left: 4 (40 enodes)
* * [misc]simplify:  iters left: 3 (66 enodes)
* * [misc]simplify:  iters left: 2 (82 enodes)
* [exit]simplify:  Simplified to (* (* (sqrt 1) (* J -2)) (cos (/ K 2)))
* [exit]simplify:  Simplified to (* (* (sqrt 1) (* J -2)) (cos (/ K 2)))
* * * * [misc]progress:  [ 64 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (18 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (71 enodes)
* * [misc]simplify:  iters left: 3 (155 enodes)
* * [misc]simplify:  iters left: 2 (388 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))
* * * * [misc]progress:  [ 65 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* (* -2 J) (cos (/ K 2))) 1) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) 1)
* * [misc]simplify:  iters left: 6 (10 enodes)
* * [misc]simplify:  iters left: 5 (19 enodes)
* * [misc]simplify:  iters left: 4 (34 enodes)
* * [misc]simplify:  iters left: 3 (53 enodes)
* * [misc]simplify:  iters left: 2 (58 enodes)
* * [misc]simplify:  iters left: 1 (60 enodes)
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* [exit]simplify:  Simplified to (* (cos (/ K 2)) (* J -2))
* * * * [misc]progress:  [ 66 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* -2 J) (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (cos (/ K 2)) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (326 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))) (cos (/ K 2)))
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))))) (cos (/ K 2)))
* * * * [misc]progress:  [ 67 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (/ (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))) (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))))
* * [misc]simplify:  iters left: 6 (20 enodes)
* * [misc]simplify:  iters left: 5 (41 enodes)
* * [misc]simplify:  iters left: 4 (88 enodes)
* * [misc]simplify:  iters left: 3 (261 enodes)
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (pow (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 3))) (* (* J -2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (sqrt (+ 1 (pow (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 3))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 68 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (/ (* (* (* -2 J) (cos (/ K 2))) (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (19 enodes)
* * [misc]simplify:  iters left: 5 (36 enodes)
* * [misc]simplify:  iters left: 4 (81 enodes)
* * [misc]simplify:  iters left: 3 (250 enodes)
* [exit]simplify:  Simplified to (* (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))) (* (* J -2) (cos (/ K 2))))
* [exit]simplify:  Simplified to (* (sqrt (- 1 (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)))) (* (* J -2) (cos (/ K 2))))
* * * * [misc]progress:  [ 69 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (* (* -2 J) (cos (/ K 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* * * * [misc]progress:  [ 70 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (pow (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) 1/2)))))>
* * * * [misc]progress:  [ 71 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (pow (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) 1)))))>
* * * * [misc]progress:  [ 72 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (exp (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (log (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (log (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 73 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (log (exp (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (exp (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (exp (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (exp (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 74 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (* (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (* (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* * [misc]simplify:  iters left: 4 (43 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (327 enodes)
* [exit]simplify:  Simplified to (* (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [exit]simplify:  Simplified to (* (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))) (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))
* [enter]simplify:  Simplifying (cbrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (cbrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 75 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (cbrt (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (* (* (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (55 enodes)
* * [misc]simplify:  iters left: 3 (131 enodes)
* [exit]simplify:  Simplified to (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (* (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 76 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (sqrt (* (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))) (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (44 enodes)
* * [misc]simplify:  iters left: 3 (104 enodes)
* * [misc]simplify:  iters left: 2 (328 enodes)
* [exit]simplify:  Simplified to (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (fabs (cbrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))
* [enter]simplify:  Simplifying (sqrt (cbrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (cbrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 77 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 78 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (* (sqrt 1) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt 1)
* * [misc]simplify:  iters left: 1 (2 enodes)
* [exit]simplify:  Simplified to (sqrt 1)
* [exit]simplify:  Simplified to (sqrt 1)
* [enter]simplify:  Simplifying (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (23 enodes)
* * [misc]simplify:  iters left: 4 (41 enodes)
* * [misc]simplify:  iters left: 3 (101 enodes)
* * [misc]simplify:  iters left: 2 (324 enodes)
* [exit]simplify:  Simplified to (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))
* [exit]simplify:  Simplified to (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))
* * * * [misc]progress:  [ 79 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (/ (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3))) (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))))>
* [enter]simplify:  Simplifying (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))
* * [misc]simplify:  iters left: 6 (16 enodes)
* * [misc]simplify:  iters left: 5 (31 enodes)
* * [misc]simplify:  iters left: 4 (59 enodes)
* * [misc]simplify:  iters left: 3 (202 enodes)
* [exit]simplify:  Simplified to (sqrt (+ 1 (pow (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 3)))
* [exit]simplify:  Simplified to (sqrt (+ 1 (pow (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 3)))
* [enter]simplify:  Simplifying (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (34 enodes)
* * [misc]simplify:  iters left: 4 (90 enodes)
* * [misc]simplify:  iters left: 3 (337 enodes)
* [exit]simplify:  Simplified to (sqrt (+ (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))))))
* [exit]simplify:  Simplified to (sqrt (+ (pow (/ (/ (/ U J) 2) (cos (/ K 2))) (+ 3 1)) (- 1 (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))))))
* * * * [misc]progress:  [ 80 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (/ (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* [enter]simplify:  Simplifying (sqrt (- (* 1 1) (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (15 enodes)
* * [misc]simplify:  iters left: 5 (26 enodes)
* * [misc]simplify:  iters left: 4 (52 enodes)
* * [misc]simplify:  iters left: 3 (187 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (pow (/ (/ (/ U 2) J) (cos (/ K 2))) (+ 3 1))))
* [exit]simplify:  Simplified to (sqrt (- 1 (pow (/ (/ (/ U 2) J) (cos (/ K 2))) (+ 3 1))))
* [enter]simplify:  Simplifying (sqrt (- 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))
* * [misc]simplify:  iters left: 6 (13 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (46 enodes)
* * [misc]simplify:  iters left: 3 (127 enodes)
* * [misc]simplify:  iters left: 2 (484 enodes)
* [exit]simplify:  Simplified to (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))))
* [exit]simplify:  Simplified to (sqrt (- 1 (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2))))))
* * * * [misc]progress:  [ 81 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (* (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))))>
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [enter]simplify:  Simplifying (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (14 enodes)
* * [misc]simplify:  iters left: 5 (24 enodes)
* * [misc]simplify:  iters left: 4 (42 enodes)
* * [misc]simplify:  iters left: 3 (103 enodes)
* * [misc]simplify:  iters left: 2 (329 enodes)
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* [exit]simplify:  Simplified to (sqrt (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))
* * * * [misc]progress:  [ 82 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (fabs (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 83 / 95 ] simplifiying candidate #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (* 1 (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))>
* * * * [misc]progress:  [ 84 / 95 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* -2 (* J (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* -2 (* J (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))))))
* * [misc]simplify:  iters left: 6 (33 enodes)
* * [misc]simplify:  iters left: 5 (69 enodes)
* * [misc]simplify:  iters left: 4 (142 enodes)
* * [misc]simplify:  iters left: 3 (287 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (* (sqrt (+ 1 (* (* (* U J) 1/2) (* (* U J) 1/2)))) (* J -2))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* * * * [misc]progress:  [ 85 / 95 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* -2 (* (* (cos (* 1/2 K)) J) (sqrt (+ 1 (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (* 1/2 K))))) (log (/ 1 U))))))))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* -2 (* (* (cos (* 1/2 K)) J) (sqrt (+ 1 (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (* 1/2 K))))) (log (/ 1 U)))))))))))
* * [misc]simplify:  iters left: 6 (39 enodes)
* * [misc]simplify:  iters left: 5 (85 enodes)
* * [misc]simplify:  iters left: 4 (186 enodes)
* * [misc]simplify:  iters left: 3 (492 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))) (cbrt (* (sqrt (+ (* (* (* (/ 1 J) U) (/ 1/2 (cos (* 1/2 K)))) (* (* (/ 1 J) U) (/ 1/2 (cos (* 1/2 K))))) 1)) (* (* J -2) (cos (* 1/2 K))))))
* * * * [misc]progress:  [ 86 / 95 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* -2 (* (* (cos (* -1/2 K)) J) (sqrt (+ (exp (* 2 (- (+ (log (/ -1 J)) (log (/ -1/2 (cos (* -1/2 K))))) (log (/ -1 U))))) 1)))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* -2 (* (* (cos (* -1/2 K)) J) (sqrt (+ (exp (* 2 (- (+ (log (/ -1 J)) (log (/ -1/2 (cos (* -1/2 K))))) (log (/ -1 U))))) 1))))))
* * [misc]simplify:  iters left: 6 (40 enodes)
* * [misc]simplify:  iters left: 5 (84 enodes)
* * [misc]simplify:  iters left: 4 (185 enodes)
* * [misc]simplify:  iters left: 3 (491 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))) (cbrt (* (sqrt (+ 1 (* (* (/ (/ -1 J) (/ -1 U)) (/ -1/2 (cos (* -1/2 K)))) (* (/ (/ -1 J) (/ -1 U)) (/ -1/2 (cos (* -1/2 K))))))) (* (* J -2) (cos (* -1/2 K))))))
* * * * [misc]progress:  [ 87 / 95 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* -2 (* J (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* -2 (* J (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (33 enodes)
* * [misc]simplify:  iters left: 5 (69 enodes)
* * [misc]simplify:  iters left: 4 (143 enodes)
* * [misc]simplify:  iters left: 3 (288 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (* (sqrt (+ (* (* U (* 1/2 J)) (* U (* 1/2 J))) 1)) (* J -2))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))
* * * * [misc]progress:  [ 88 / 95 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* -2 (* (* (cos (* 1/2 K)) J) (sqrt (+ 1 (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (* 1/2 K))))) (log (/ 1 U))))))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* -2 (* (* (cos (* 1/2 K)) J) (sqrt (+ 1 (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (* 1/2 K))))) (log (/ 1 U))))))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (39 enodes)
* * [misc]simplify:  iters left: 5 (84 enodes)
* * [misc]simplify:  iters left: 4 (185 enodes)
* * [misc]simplify:  iters left: 3 (487 enodes)
* [exit]simplify:  Simplified to (* (cbrt (* (* (* J -2) (cos (* K 1/2))) (sqrt (+ 1 (* (* (/ 1/2 (cos (* K 1/2))) (* (/ 1 J) U)) (* (/ 1/2 (cos (* K 1/2))) (* (/ 1 J) U))))))) (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))))
* * * * [misc]progress:  [ 89 / 95 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* -2 (* (* (cos (* -1/2 K)) J) (sqrt (+ (exp (* 2 (- (+ (log (/ -1 J)) (log (/ -1/2 (cos (* -1/2 K))))) (log (/ -1 U))))) 1)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* -2 (* (* (cos (* -1/2 K)) J) (sqrt (+ (exp (* 2 (- (+ (log (/ -1 J)) (log (/ -1/2 (cos (* -1/2 K))))) (log (/ -1 U))))) 1)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (40 enodes)
* * [misc]simplify:  iters left: 5 (83 enodes)
* * [misc]simplify:  iters left: 4 (184 enodes)
* * [misc]simplify:  iters left: 3 (489 enodes)
* [exit]simplify:  Simplified to (* (cbrt (* (* (* J -2) (cos (* K -1/2))) (sqrt (+ (* (* (/ -1/2 (cos (* K -1/2))) (/ (/ -1 J) (/ -1 U))) (* (/ -1/2 (cos (* K -1/2))) (/ (/ -1 J) (/ -1 U)))) 1)))) (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))))
* * * * [misc]progress:  [ 90 / 95 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (cbrt (* -2 (* J (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* -2 (* J (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (33 enodes)
* * [misc]simplify:  iters left: 5 (70 enodes)
* * [misc]simplify:  iters left: 4 (142 enodes)
* * [misc]simplify:  iters left: 3 (289 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (* (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2)))) (cbrt (* (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))) (cbrt (* (sqrt (+ (* (* U (* 1/2 J)) (* U (* 1/2 J))) 1)) (* J -2))))
* * * * [misc]progress:  [ 91 / 95 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (cbrt (* -2 (* (* (cos (* 1/2 K)) J) (sqrt (+ 1 (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (* 1/2 K))))) (log (/ 1 U)))))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* -2 (* (* (cos (* 1/2 K)) J) (sqrt (+ 1 (exp (* 2 (- (+ (log (/ 1 J)) (log (/ 1/2 (cos (* 1/2 K))))) (log (/ 1 U)))))))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (39 enodes)
* * [misc]simplify:  iters left: 5 (86 enodes)
* * [misc]simplify:  iters left: 4 (186 enodes)
* * [misc]simplify:  iters left: 3 (489 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ 1 (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2)))))))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ 1 (* (/ (/ U (* 2 J)) (cos (/ K 2))) (/ (/ U (* 2 J)) (cos (/ K 2))))))))) (cbrt (* (sqrt (+ (* (* (* (/ 1 J) U) (/ 1/2 (cos (* K 1/2)))) (* (* (/ 1 J) U) (/ 1/2 (cos (* K 1/2))))) 1)) (* (* J -2) (cos (* K 1/2))))))
* * * * [misc]progress:  [ 92 / 95 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (cbrt (* -2 (* (* (cos (* -1/2 K)) J) (sqrt (+ (exp (* 2 (- (+ (log (/ -1 J)) (log (/ -1/2 (cos (* -1/2 K))))) (log (/ -1 U))))) 1))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* -2 (* (* (cos (* -1/2 K)) J) (sqrt (+ (exp (* 2 (- (+ (log (/ -1 J)) (log (/ -1/2 (cos (* -1/2 K))))) (log (/ -1 U))))) 1))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))
* * [misc]simplify:  iters left: 6 (40 enodes)
* * [misc]simplify:  iters left: 5 (85 enodes)
* * [misc]simplify:  iters left: 4 (185 enodes)
* * [misc]simplify:  iters left: 3 (485 enodes)
* [exit]simplify:  Simplified to (* (cbrt (* (sqrt (+ 1 (* (* (/ -1/2 (cos (* K -1/2))) (/ (/ -1 J) (/ -1 U))) (* (/ -1/2 (cos (* K -1/2))) (/ (/ -1 J) (/ -1 U)))))) (* (cos (* K -1/2)) (* J -2)))) (* (cbrt (* (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2)))) (cbrt (* (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)) (* (cos (/ K 2)) (* J -2))))))
* * * * [misc]progress:  [ 93 / 95 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))))
* * [misc]simplify:  iters left: 6 (32 enodes)
* * [misc]simplify:  iters left: 5 (68 enodes)
* * [misc]simplify:  iters left: 4 (149 enodes)
* * [misc]simplify:  iters left: 3 (319 enodes)
* [exit]simplify:  Simplified to (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))) (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ 1 (* (* J (* 1/2 U)) (* J (* 1/2 U))))))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1))))))
* * * * [misc]progress:  [ 94 / 95 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U)))))))))))
* * [misc]simplify:  iters left: 6 (37 enodes)
* * [misc]simplify:  iters left: 5 (84 enodes)
* * [misc]simplify:  iters left: 4 (194 enodes)
* [exit]simplify:  Simplified to (* (cbrt (* (sqrt (+ 1 (pow (exp 2) (- (log (/ 1/2 (cos (* K 1/2)))) (+ (log U) (log J)))))) (* (* J -2) (cos (/ K 2))))) (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))))
* * * * [misc]progress:  [ 95 / 95 ] simplifiying candidate #<alt-event (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K))))))))))))))>
* [enter]simplify:  Simplifying (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log (/ -1 J)) (+ (log (/ -1 U)) (log (/ -1/2 (cos (* -1/2 K)))))))))))))
* * [misc]simplify:  iters left: 6 (38 enodes)
* * [misc]simplify:  iters left: 5 (83 enodes)
* * [misc]simplify:  iters left: 4 (188 enodes)
* * [misc]simplify:  iters left: 3 (492 enodes)
* [exit]simplify:  Simplified to (* (* (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1)))) (cbrt (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (* (/ (/ (/ U J) 2) (cos (/ K 2))) (/ (/ (/ U J) 2) (cos (/ K 2)))) 1))))) (cbrt (* (sqrt (+ (* (* (* (/ -1 J) (/ -1 U)) (/ -1/2 (cos (* -1/2 K)))) (* (* (/ -1 J) (/ -1 U)) (/ -1/2 (cos (* -1/2 K))))) 1)) (* (* J -2) (cos (/ K 2))))))
* * * [misc]progress:  adding candidates to table
* [misc]progress:  [Phase 3 of 3] Extracting.
* * [misc]regime-changes:  Finding splitpoints for: (#<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))> #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (exp (* 2 (+ (log (/ 1 J)) (+ (log (/ 1/2 (cos (* 1/2 K)))) (log (/ 1 U))))))))))> #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (* (* (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))))> #<alt-event (λ (J K U) (* -2 (* J (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1)))))> #<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (exp (* 2 (+ (log U) (+ (log J) (log 1/2))))) 1))))> #<alt-delta (λ (J K U) (cbrt (* (+ (* (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) (pow (* (* J -2) (cos (/ K 2))) 3)) (pow (* (* J -2) (cos (/ K 2))) 3)) (sqrt (+ (* (/ (/ (/ U 2) J) (cos (/ K 2))) (/ (/ (/ U 2) J) (cos (/ K 2)))) 1)))))> #<alt-delta (λ (J K U) (* (* (* (* -2 J) (cos (/ K 2))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))))> #<alt-delta (λ (J K U) (* (* (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))) (cbrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))> #<alt-delta (λ (J K U) (* (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))) (sqrt (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))> #<alt-delta (λ (J K U) (/ (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ (pow 1 3) (pow (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) 3)))) (sqrt (+ (* 1 1) (- (* (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2) (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)) (* 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))))>)
* [misc]regimes:  Found splitpoints: (#s(sp 0 (cos (/ K 2)) +nan.0)) , with alts (#<alt-event (λ (J K U) (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2)))))>)
* [enter]simplify:  Simplifying (* (* (* -2 J) (cos (/ K 2))) (sqrt (+ 1 (pow (/ U (* (* 2 J) (cos (/ K 2)))) 2))))
* * [misc]simplify:  iters left: 6 (17 enodes)
* * [misc]simplify:  iters left: 5 (25 enodes)
* [exit]simplify:  Simplified to (* (* (* J -2) (cos (/ K 2))) (sqrt (+ (pow (/ U (* (* J 2) (cos (/ K 2)))) 2) 1)))
* * * * [misc]points:  Sampling 8000 additional inputs, on iter 0 have 0 / 8000
* * * * [misc]points:  Computing exacts on every 500 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 250 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 125 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 62 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 31 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 15 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 7 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts on every 3 of 8000 points to ramp up precision
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Computing exacts for 8000 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [misc]points:  Sampling 4 additional inputs, on iter 1 have 7999 / 8000
* * * * [misc]points:  Computing exacts for 4 points
* * * * [misc]points:  Setting MPFR precision to 64
* * * * [misc]points:  Setting MPFR precision to 320
* * * * [misc]points:  Filtering points with unrepresentable outputs
* * * * [exit]points:  Sampled 8003 points with exact outputs