Update InductionProofs.lagda