"f" const "->" typeOp "bool" typeOp nil opType 1 def 1 remove nil cons cons opType constTerm refl "x" const "bool" typeOp nil opType constTerm refl appThm