subst_occs : int list list -> 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