diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-26 18:36:55 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-26 18:36:55 +0200 |
| commit | 6a52af37191e5a6c9b2aa5a91ae3d0d9185ccdd6 (patch) | |
| tree | 8de224f14b73cd34bd81ce18f251ba0cdfe0bb64 /src/trace/smtForm.ml | |
| parent | 87ec8048b9da841af7b124b6dc91c9a8550b7585 (diff) | |
| download | smtcoq-6a52af37191e5a6c9b2aa5a91ae3d0d9185ccdd6.tar.gz smtcoq-6a52af37191e5a6c9b2aa5a91ae3d0d9185ccdd6.zip | |
Compatibility with native-coq
Diffstat (limited to 'src/trace/smtForm.ml')
| -rw-r--r-- | src/trace/smtForm.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/trace/smtForm.ml b/src/trace/smtForm.ml index a235859..7dc727a 100644 --- a/src/trace/smtForm.ml +++ b/src/trace/smtForm.ml @@ -273,9 +273,9 @@ module Make (Atom:ATOM) = | CCunknown module ConstrHash = struct - type t = Constr.constr - let equal = Constr.equal - let hash = Constr.hash + type t = Term.constr + let equal = Term.eq_constr + let hash = Term.hash_constr end module ConstrHashtbl = Hashtbl.Make(ConstrHash) @@ -340,7 +340,7 @@ module Make (Atom:ATOM) = match args with | [t] -> let c,args = Term.decompose_app t in - if Constr.equal c (Lazy.force cnegb) then + if Term.eq_constr c (Lazy.force cnegb) then mk_fnot (i+1) args else let q,r = i lsr 1 , i land 1 in @@ -355,7 +355,7 @@ module Make (Atom:ATOM) = | [t1;t2] -> let l2 = mk_hform t2 in let c, args = Term.decompose_app t1 in - if Constr.equal c (Lazy.force candb) then + if Term.eq_constr c (Lazy.force candb) then mk_fand (l2::acc) args else let l1 = mk_hform t1 in @@ -367,7 +367,7 @@ module Make (Atom:ATOM) = | [t1;t2] -> let l2 = mk_hform t2 in let c, args = Term.decompose_app t1 in - if Constr.equal c (Lazy.force corb) then + if Term.eq_constr c (Lazy.force corb) then mk_for (l2::acc) args else let l1 = mk_hform t1 in |