Everything-I-Know-About-Types/bergamot-elm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Slightly tweak code for proving a term

Browse Source 
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
Danila Fedorin 2023-12-22 14:39:52 -08:00
parent da470f5caa
commit aa7fd44a6d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Bergamot/Rules.elm
View File

@ -169,7 +169,8 @@ provePremises = mapM proveTerm
proveTerm : Term UnificationVar -> Prover ProofTree proveTerm : Term UnificationVar -> Prover ProofTree
proveTerm t = proveTerm t =
map (reify t) getUnificationState getUnificationState
|> map (\us -> reify t us)
|> andThen (\tp -> |> andThen (\tp ->
burn ( burn (
getRules getRules