Commit d0e36fd7 authored by Camil Staps's avatar Camil Staps 🚀

Cleanup generated properties

parent a5137ecd
Subproject commit 393afb033911087478d932ab02236203a77849ed
Subproject commit d4176dc144f87d5c9581e2cf1fd155fd1a066aa2
......@@ -323,10 +323,9 @@ where
, "\t(" +++ lambda +++ join " " [name`` +++ "`":map snd3 ts`] +++ ")"
, "where"
, "\t" +++ name`` +++ "` :: " +++ toString type`
, "\t" +++ join " " [name`` +++ "`":map fst3 ts`] +++ " = prop _p"
, "\t" +++ join " " [name`` +++ "`":map fst3 ts`] +++ " = (True" +++ concat [" /\\ _pre" <+ i \\ i <- [1..] & pre <- preconditions] +++ ") ==> _p"
, "\twhere"
, "\t\t_p = (True" +++ concat [" /\\ _pre" <+ i \\ i <- [1..] & pre <- preconditions] +++ ") ==> _p`"
, "\t\t_p` = " +++ replaceSubString "\n" "\n\t\t\t" imp
, "\t\t_p = " +++ replaceSubString "\n" "\n\t\t\t" imp
: ["\t\t_pre" <+ i <+ " = " +++ s \\ s <- preconditions & i <- [1..]]
]
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment