diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-14 07:25:35 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-09-14 07:25:35 +0000 |
| commit | ab058ba005b1a6e91a87973006ebac823d7722e3 (patch) | |
| tree | 885d3366014d3e931f50f96cf768ee9d9a9f5977 /tactics/hipattern.ml | |
| parent | ae47a499e6dbf4232a03ed23410e81a4debd15d1 (diff) | |
Abstraction de constr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@604 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/hipattern.ml')
| -rw-r--r-- | tactics/hipattern.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/hipattern.ml b/tactics/hipattern.ml index cc88fbcd7..d9d81238b 100644 --- a/tactics/hipattern.ml +++ b/tactics/hipattern.ml @@ -67,8 +67,7 @@ let get_reference mods s = let soinstance squel arglist = let mvs,c = get_squel_core squel in let mvb = List.combine mvs arglist in - Sosub.soexecute (Reduction.strong (fun _ _ -> Reduction.whd_meta mvb) - empty_env Evd.empty c) + Reduction.local_strong (Reduction.whd_meta mvb) c let get_squel m = let mvs, c = get_squel_core m in |