1 signature INFIX_CONV =
2 sig
3 val then_conv : Thm.conv * Thm.conv -> Thm.conv
4 val else_conv : Thm.conv * Thm.conv -> Thm.conv
5 end
6
7 structure InfixConv : INFIX_CONV = Conv
8
9 open InfixConv