- 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