max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

refactor(library/tools/super/prover_state): derived_clause.update_proof

Browse source
This commit is contained in:
Gabriel Ebner 2017-02-24 20:21:52 +01:00
parent 79afaa7421
commit d27ff2e68b
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
library/tools/super/prover_state.lean
View file

@ -77,6 +77,9 @@ c_fmt ++ " <- " ++ ass_fmt ++
meta def clause_with_assertions (ac : derived_clause) : clause :=
ac^.c^.close_constn ac^.assertions
meta def update_proof (dc : derived_clause) (p : expr) : derived_clause :=
{ dc with c := { (dc^.c) with proof := p } }
end derived_clause
meta structure locked_clause :=
@ -287,7 +290,7 @@ c' ← return $ c^.c^.close_constn c^.assertions,
assertv hyp_name c'^.type c'^.proof,
proof' ← get_local hyp_name,
type ← infer_type proof', -- FIXME: otherwise ""
return { c with c := { (c^.c : clause) with proof := app_of_list proof' c^.assertions } }
return $ c^.update_proof $ app_of_list proof' c^.assertions
meta def register_as_passive (c : derived_clause) : prover unit := do
c ← intern_clause c,