use a better name

LeventErkok · Aug 29, 2024 · 5ab8c4f · 5ab8c4f
1 parent d9cacb7
commit 5ab8c4f
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Documentation/SBV/Examples/KnuckleDragger/Kleene.hs b/Documentation/SBV/Examples/KnuckleDragger/Kleene.hs
@@ -59,7 +59,7 @@ x <= y = x + y .== y
 --
 -- We have:
 --
--- >>> example
+-- >>> kleeneProofs
 -- Axiom: par_assoc                               Admitted.
 -- Axiom: par_comm                                Admitted.
 -- Axiom: par_idem                                Admitted.
@@ -85,8 +85,8 @@ x <= y = x + y .== y
 -- Lemma: star_star_2_3                           Q.E.D.
 -- Lemma: star_star_2_1                           Q.E.D.
 -- Lemma: star_star_2                             Q.E.D.
-example :: IO ()
-example = do
+kleeneProofs :: IO ()
+kleeneProofs = do
 
   -- Kozen axioms
   par_assoc <- axiom "par_assoc" $ \(Forall (x :: SKleene)) (Forall y) (Forall z) -> x + (y + z) .== (x + y) + z