Title: Data type proofs using Edinburgh LCF