pub fn chain<A: Prop, B: Prop, C: Prop>( f: Imply<And<A, B>, C> ) -> Imply<A, Imply<B, C>>
((a ∧ b) => c) => (a => (b => c)).
((a ∧ b) => c) => (a => (b => c))