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