disch : ((term * term list) -> term list)
disch (``\x:bool.T``, [``A = T``, ``B = 3``, ``\y:bool.T``]); [`A = T`,`B = 3`] : term list