138 val (p,_,f,nxt,_,pt) = me nxt p c pt; f2str f; |
138 val (p,_,f,nxt,_,pt) = me nxt p c pt; f2str f; |
139 val (p,_,f,nxt,_,pt) = me nxt p c pt; f2str f; |
139 val (p,_,f,nxt,_,pt) = me nxt p c pt; f2str f; |
140 val (p,_,f,nxt,_,pt) = me nxt p c pt; f2str f; |
140 val (p,_,f,nxt,_,pt) = me nxt p c pt; f2str f; |
141 if f2str f = "1 = 4 * x" then () |
141 if f2str f = "1 = 4 * x" then () |
142 else error "rootrateq.sml: diff.behav. in rootrat_equation_left_1 c"; |
142 else error "rootrateq.sml: diff.behav. in rootrat_equation_left_1 c"; |
143 (*-> Subproblem ("PolyEq", ["normalize", "polynomial", "univariate", "equation"])*) |
143 (*-> Subproblem ("PolyEq", ["normalise", "polynomial", "univariate", "equation"])*) |
144 val (p,_,f,nxt,_,pt) = me nxt p c pt; val (p,_,f,nxt,_,pt) = me nxt p c pt; |
144 val (p,_,f,nxt,_,pt) = me nxt p c pt; val (p,_,f,nxt,_,pt) = me nxt p c pt; |
145 val (p,_,f,nxt,_,pt) = me nxt p c pt; val (p,_,f,nxt,_,pt) = me nxt p c pt; |
145 val (p,_,f,nxt,_,pt) = me nxt p c pt; val (p,_,f,nxt,_,pt) = me nxt p c pt; |
146 val (p,_,f,nxt,_,pt) = me nxt p c pt; val (p,_,f,nxt,_,pt) = me nxt p c pt; |
146 val (p,_,f,nxt,_,pt) = me nxt p c pt; val (p,_,f,nxt,_,pt) = me nxt p c pt; |
147 val (p,_,f,nxt,_,pt) = me nxt p c pt; val (p,_,f,nxt,_,pt) = me nxt p c pt; |
147 val (p,_,f,nxt,_,pt) = me nxt p c pt; val (p,_,f,nxt,_,pt) = me nxt p c pt; |
148 val (p,_,f,nxt,_,pt) = me nxt p c pt; val (p,_,f,nxt,_,pt) = me nxt p c pt; |
148 val (p,_,f,nxt,_,pt) = me nxt p c pt; val (p,_,f,nxt,_,pt) = me nxt p c pt; |