diff options
| author | corbinea | 2003-05-26 14:27:21 +0000 |
|---|---|---|
| committer | corbinea | 2003-05-26 14:27:21 +0000 |
| commit | e0152ebf31e3a7da7407d81a0588c769ffffa913 (patch) | |
| tree | 18cb8f2394fecbfb6c0daa3bc1f98e0c62356074 /contrib/first-order/formula.ml | |
| parent | 5253deb6394e61e258131b33a27861c19d3285bd (diff) | |
GIntuition now matches Intuition up to hyps renaming.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4080 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/first-order/formula.ml')
| -rw-r--r-- | contrib/first-order/formula.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/contrib/first-order/formula.ml b/contrib/first-order/formula.ml index e00f26f3d4..42611884ef 100644 --- a/contrib/first-order/formula.ml +++ b/contrib/first-order/formula.ml @@ -49,6 +49,10 @@ let op2bool = function Some _->true | None->false let id_not=constant "Logic" "not" let id_iff=constant "Logic" "iff" +let defined_connectives=lazy + [[],EvalConstRef (destConst (id_not ())); + [],EvalConstRef (destConst (id_iff ()))] + let match_with_evaluable t= match kind_of_term t with App (hd,b)-> |