Anticipate changes to the compiler: don't rely on identifiers starting with an underscore

src/testproperties.icl

@@ -427,10 +427,10 @@ where
 			, "\t(" +++ join " " lambdas +++ join " " [name`` +++ "`":[ga.ga_expr \\ ga <- gas]] +++ {')' \\ _ <- lambdas} +++ ")"
 			, "where"
 			, "\t" +++ name`` +++ "` :: " +++ toString type`
-			, "\t" +++ join " " [name`` +++ "`":[ga.ga_arg \\ ga <- gas]] +++ " = (True" +++ concat [" /\\ _pre" <+ i \\ i <- [1..] & pre <- preconditions] +++ ") ==> _p"
+			, "\t" +++ join " " [name`` +++ "`":[ga.ga_arg \\ ga <- gas]] +++ " = (True" +++ concat [" /\\ precondition_" <+ i <+ "_" \\ i <- [1..] & pre <- preconditions] +++ ") ==> actual_property_"
 			, "\twhere"
-			, "\t\t_p = " +++ replaceSubString "\n" "\n\t\t\t" imp
-			: ["\t\t_pre" <+ i <+ " = " +++ s \\ s <- preconditions & i <- [1..]]
+			, "\t\tactual_property_ = " +++ replaceSubString "\n" "\n\t\t\t" imp
+			: ["\t\tprecondition_" <+ i <+ "_ = " +++ s \\ s <- preconditions & i <- [1..]]
 			]
 		}
 	where