UNWIND_AUTO_RIGHT_RULE : (thm -> thm)
A |- !z1 ... zr. t = ?l1 ... lm. t1 /\ ... /\ tn ---------------------------------------------------- A |- !z1 ... zr. t = ?l1 ... lm. t1' /\ ... /\ tn'
The function decides which equations to use for rewriting by performing a loop analysis on the graph representing the dependencies of the lines. By this means the term can be unwound as much as possible without the risk of looping. The user is left to deal with the recursive equations.
#UNWIND_AUTO_RIGHT_RULE # (ASSUME # "!f. IMP(f) = # ?l2 l1. # (!(x:num). l1 x = (l2 x) - 1) /\ # (!x. f x = (l2 (x+1)) + (l1 (x+2))) /\ # (!x. l2 x = 7)");; . |- !f. IMP f = (?l2 l1. (!x. l1 x = 7 - 1) /\ (!x. f x = 7 + (7 - 1)) /\ (!x. l2 x = 7))