Reduce gas for proof search

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2024-04-20 14:05:50 -07:00 · 2024-04-20 14:05:50 -07:00 · 6a952f8a15
commit 6a952f8a15
parent cd9a048832
1 changed files with 1 additions and 1 deletions
--- a/src/Bergamot/Rules.elm
+++ b/src/Bergamot/Rules.elm
@ -226,6 +226,6 @@ prove mt =

 single : RuleEnv -> Prover a -> Maybe a
 single env p =
-    p env { instantiationState = emptyInstantiationState, unificationState = emptyUnificationState, gas = 30 }
+    p env { instantiationState = emptyInstantiationState, unificationState = emptyUnificationState, gas = 15 }
    |> Search.one
    |> Maybe.map (Tuple.first << Tuple.first)