subst_occs : int list list -> (term,term) subst -> term -> term
- subst_occs [[1,3]] [Term `SUC 0` |-> Term `1`] (Term `SUC 0 + SUC 0 = SUC(SUC 0)`); > val it = `1 + SUC 0 = SUC 1` : term - subst_occs [[1],[1]] [Term `SUC 0` |-> Term `1`, Term `SUC 1` |-> Term `2`] (Term `SUC(SUC 0) = SUC 1`); > val it = `SUC 1 = 2` : term - subst_occs [[1],[1]] [Term`SUC(SUC 0)` |-> Term `2`, Term`SUC 0` |-> Term `1`] (Term`SUC(SUC 0) = SUC 0`); > val it = `2 = 1` : term