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/zchaff | |
parent | 87ec8048b9da841af7b124b6dc91c9a8550b7585 (diff) | |
download | smtcoq-6a52af37191e5a6c9b2aa5a91ae3d0d9185ccdd6.tar.gz smtcoq-6a52af37191e5a6c9b2aa5a91ae3d0d9185ccdd6.zip |
Compatibility with native-coq
Diffstat (limited to 'src/zchaff')
-rw-r--r-- | src/zchaff/zchaff.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/zchaff/zchaff.ml b/src/zchaff/zchaff.ml index e62a459..29891cc 100644 --- a/src/zchaff/zchaff.ml +++ b/src/zchaff/zchaff.ml @@ -388,8 +388,8 @@ let build_body_eq reify_atom reify_form l1 l2 l (max_id, confl) = let get_arguments concl = let f, args = Term.decompose_app concl in match args with - | [ty;a;b] when (Constr.equal f (Lazy.force ceq)) && (Constr.equal ty (Lazy.force cbool)) -> a, b - | [a] when (Constr.equal f (Lazy.force cis_true)) -> a, Lazy.force ctrue + | [ty;a;b] when (Term.eq_constr f (Lazy.force ceq)) && (Term.eq_constr ty (Lazy.force cbool)) -> a, b + | [a] when (Term.eq_constr f (Lazy.force cis_true)) -> a, Lazy.force ctrue | _ -> failwith ("Zchaff.get_arguments :can only deal with equality over bool") @@ -495,9 +495,9 @@ let tactic gl = let reify_atom = Atom.create () in let reify_form = Form.create () in let body = - if ((Constr.equal b (Lazy.force ctrue)) || (Constr.equal b (Lazy.force cfalse))) then + if ((Term.eq_constr b (Lazy.force ctrue)) || (Term.eq_constr b (Lazy.force cfalse))) then let l = Form.of_coq (Atom.get reify_atom) reify_form a in - let l' = if (Constr.equal b (Lazy.force ctrue)) then Form.neg l else l in + let l' = if (Term.eq_constr b (Lazy.force ctrue)) then Form.neg l else l in let atom_tbl = Atom.atom_tbl reify_atom in let pform_tbl = Form.pform_tbl reify_form in let max_id_confl = make_proof pform_tbl atom_tbl (Environ.push_rel_context forall_let env) reify_form l' in |