diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-30 03:03:50 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-30 03:03:50 +0200 |
commit | 98bf2facf5a61758897d000c4a7d1d6c6c2965fb (patch) | |
tree | fcb99694bdc0df548398a718676847acdc5436c3 /src/trace/smtCertif.ml | |
parent | 640bf0dda4a4880aeb525d1460dc91f5041aa626 (diff) | |
download | smtcoq-98bf2facf5a61758897d000c4a7d1d6c6c2965fb.tar.gz smtcoq-98bf2facf5a61758897d000c4a7d1d6c6c2965fb.zip |
Holes in proof:
- can now take learned clauses as argument
- returns a whole clause (and not only a literal)
- tested for the vernacular commands
Warning: seems to slow down 8.5 version
Diffstat (limited to 'src/trace/smtCertif.ml')
-rw-r--r-- | src/trace/smtCertif.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/trace/smtCertif.ml b/src/trace/smtCertif.ml index 8ed87e4..f39bff4 100644 --- a/src/trace/smtCertif.ml +++ b/src/trace/smtCertif.ml @@ -109,7 +109,7 @@ type 'hform rule = | SplDistinctElim of 'hform clause * 'hform (* Possibility to introduce "holes" in proofs (that should be filled in Coq) *) - | Hole of 'hform + | Hole of ('hform clause) list * 'hform list and 'hform clause = { id : clause_id; @@ -138,7 +138,7 @@ let used_clauses r = match r with | ImmBuildProj (c, _) | ImmBuildDef c | ImmBuildDef2 c | ImmFlatten (c,_) | SplArith (c,_,_) | SplDistinctElim (c,_) -> [c] + | Hole (cs, _) -> cs | True | False | BuildDef _ | BuildDef2 _ | BuildProj _ | EqTr _ | EqCgr _ | EqCgrP _ - | LiaMicromega _ | LiaDiseq _ - | Hole _ -> [] + | LiaMicromega _ | LiaDiseq _ -> [] |