1 consts substa :: ('a => 'b aexp) => 'a aexp => 'b aexp
2 substb :: ('a => 'b aexp) => 'a bexp => 'b bexp