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