diff options
| author | herbelin | 2012-06-20 16:30:08 +0000 |
|---|---|---|
| committer | herbelin | 2012-06-20 16:30:08 +0000 |
| commit | e40f33d24476a91fec447233efd2e921ff7c882b (patch) | |
| tree | 609f69807ac41756d39746b5e0f71c9684856cec /kernel | |
| parent | e5840a45ad77ddf648871f142707924624311725 (diff) | |
Fixing bug #2817 (occur check was not done up to instantiation of
known instances in unification.ml). This refines the fix to bug #1918.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15459 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/term.ml | 1 | ||||
| -rw-r--r-- | kernel/term.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index ab676f0e9a..d7fb3f63b9 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -265,6 +265,7 @@ let destMeta c = match kind_of_term c with | _ -> invalid_arg "destMeta" let isMeta c = match kind_of_term c with Meta _ -> true | _ -> false +let isMetaOf mv c = match kind_of_term c with Meta mv' -> mv = mv' | _ -> false (* Destructs a variable *) let destVar c = match kind_of_term c with diff --git a/kernel/term.mli b/kernel/term.mli index e83be6d63b..d826fb605a 100644 --- a/kernel/term.mli +++ b/kernel/term.mli @@ -235,6 +235,7 @@ val isVarId : identifier -> constr -> bool val isInd : constr -> bool val isEvar : constr -> bool val isMeta : constr -> bool +val isMetaOf : metavariable -> constr -> bool val isEvar_or_Meta : constr -> bool val isSort : constr -> bool val isCast : constr -> bool |