on master help sign in
"auto" now does proof search
930f16aEdwin Brady
libs/effects/Effects.idr+2−4
@@ -249,15 +249,13 @@ syntax MkDefaultEnv = with Env
249
249
250call : {a, b: _} -> {e : Effect} ->
250call : {a, b: _} -> {e : Effect} ->
251 (eff : e t a b) ->
251 (eff : e t a b) ->
252− {default tactics { search 100; }
253− prf : EffElem e a xs} ->
252+ {auto prf : EffElem e a xs} ->
254 Eff m t xs (\v => updateResTy v xs prf eff)
253 Eff m t xs (\v => updateResTy v xs prf eff)
255call e {prf} = callP prf e
254call e {prf} = callP prf e
256
255
257implicit
256implicit
258lift : Eff m t ys ys' ->
257lift : Eff m t ys ys' ->
259− {default tactics { search 100; }
260− prf : SubList ys xs} ->
258+ {auto prf : SubList ys xs} ->
261 Eff m t xs (\v => updateWith (ys' v) xs prf)
259 Eff m t xs (\v => updateWith (ys' v) xs prf)
262lift e {prf} = liftP prf e
260lift e {prf} = liftP prf e
263
261
src/Idris/ParseExpr.hs+1−1
@@ -816,7 +816,7 @@ pi syn =
816 symbol "->"
816 symbol "->"
817 sc <- expr syn
817 sc <- expr syn
818 return (bindList (PPi
818 return (bindList (PPi
819− (TacImp [] Dynamic (PTactics [Trivial]))) xt sc)) <|> (do
819+ (TacImp [] Dynamic (PTactics [ProofSearch True True 100 Nothing []]))) xt sc)) <|> (do
820 try (lchar '{' *> reserved "default")
820 try (lchar '{' *> reserved "default")
821 when (st == Static) $ fail "default tactic constraints can not be lazy or static"
821 when (st == Static) $ fail "default tactic constraints can not be lazy or static"
822 script <- simpleExpr syn
822 script <- simpleExpr syn