5851
|
1 |
primrec
|
|
2 |
"substa s (IF b a1 a2) =
|
|
3 |
IF (substb s b) (substa s a1) (substa s a2)"
|
|
4 |
"substa s (Sum a1 a2) = Sum (substa s a1) (substa s a2)"
|
|
5 |
"substa s (Diff a1 a2) = Diff (substa s a1) (substa s a2)"
|
|
6 |
"substa s (Var v) = s v"
|
|
7 |
"substa s (Num n) = Num n"
|