equal
deleted
inserted
replaced
658 text{*\noindent In Example~\ref{eg:gap} of my thesis I'm describing a problem about |
658 text{*\noindent In Example~\ref{eg:gap} of my thesis I'm describing a problem about |
659 simplifications. The problem that we would like to have only a specific degree |
659 simplifications. The problem that we would like to have only a specific degree |
660 of simplification occurs right here, in the next step.*} |
660 of simplification occurs right here, in the next step.*} |
661 |
661 |
662 ML {* |
662 ML {* |
|
663 trace_rewrite := false; |
663 val SOME fract1 = |
664 val SOME fract1 = |
664 parseNEW ctxt "(z - 1/2)*(z - -1/4) * (A/(z - 1/2) + B/(z - -1/4))"; |
665 parseNEW ctxt "(z - 1/2)*(z - -1/4) * (A/(z - 1/2) + B/(z - -1/4))"; |
665 (* |
666 (* |
666 * A B ! |
667 * A B ! |
667 *) |
668 *) |