start MoreProp.v, propositions as inductive types?