subst : (term,term) subst -> term -> term
- load "arithmeticTheory"; - subst [Term`SUC 0` |-> Term`1`] (Term`SUC(SUC 0)`); > val it = `SUC 1` : term - subst [Term`SUC 0` |-> Term`1`, Term`SUC 1` |-> Term`2`] (Term`SUC(SUC 0)`); > val it = `SUC 1` : term - subst [Term`SUC 0` |-> Term`1`, Term`SUC 1` |-> Term`2`] (Term`SUC(SUC 0) = SUC 1`); > val it = `SUC 1 = 2` : term - subst [Term`b:num` |-> Term`a:num`] (Term`\a:num. b:num`); > val it = `\a'. a` : term - subst [Term`flip:'a` |-> Term`foo:'a`] (Term`waddle:'a`); > val it = `waddle` : term