diff options
| author |  delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-02-13 17:24:40 +0000 |
|---|---|---|
| committer | delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-02-13 17:24:40 +0000 |
| commit | 837cde99a5b3995bddd5ecfbaa48ee19dcd615a1 (patch) | |
| tree | fb4d2243129838a04d2077a7d9d498f3eb39d420 /tactics/tacinterp.ml | |
| parent | 75f4910db440eb081a22cafccf01e1dbcb12b8c4 (diff) | |
Chargement dynamique de .cma
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3676 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tacinterp.ml')
| -rw-r--r-- | tactics/tacinterp.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 3f9ad2fd7..eb29d67ed 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -772,12 +772,6 @@ let apply_one_mhyp_context ist env gl lmatch mhyp lhyps noccopt = and get_info_pattern = function | Hyp((_,idpat),pat) -> (Some idpat,pat) | NoHypId pat -> (None,pat) in - -(*======= - | Hyp((_,idpat),_) -> [idpat,VConstr (mkVar id)] - | NoHypId _ -> [] in ->>>>>>> 1.28*) - let rec apply_one_mhyp_context_rec ist env mhyp lhyps_acc nocc = function | (id,hyp)::tl -> (match (get_pattern mhyp) with |