example tweaks.

leepike · Mar 22, 2013 · 80df11e · 80df11e
1 parent a85324f
commit 80df11e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/examples/Div0.hs b/examples/Div0.hs
@@ -44,7 +44,7 @@ instance Arbitrary Exp where
 
 -- property: so long as 0 isn't in the divisor, we won't try to divide by 0.
 -- It's false: something might evaluate to 0 still.
-prop_div :: Exp -> ScProp
+prop_div :: Exp -> ScProperty
 prop_div e = divSubTerms e --> eval e /= Nothing
 -- prop_div e = property $ case x of
 --                           Nothing -> True

diff --git a/examples/LambdaCalc.hs b/examples/LambdaCalc.hs
@@ -113,7 +113,7 @@ instance Arbitrary Pr where
 -- prop0 (Pr (e0, e1)) = alphaEq e0 e1 ==> betaEq e0 e1
 
 -- if you do a beta reduction to nf
--- prop1 :: Pr -> ScProp
+-- prop1 :: Pr -> ScProperty
 -- prop1 (Pr e0 e1) = -- Timeout due to possible non-termination
 --   within 1000 $ alphaEq e0 e1 --> betaEq e0 (substVar "x" "y" e1)