A prototype theorem-prover for a higher-order functional language