diff options
| author | herbelin | 2000-10-03 18:09:55 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-03 18:09:55 +0000 |
| commit | 15a7044b5c90a70e820b588bc0fc18c57d2676e8 (patch) | |
| tree | 7d8f693144f0a303063a018ee37dc65f31e68ff8 | |
| parent | ea4ead6ad589e4dab02244c1fa655bddd45a9610 (diff) | |
mise en page
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@636 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/refine.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/refine.ml b/tactics/refine.ml index f3bd862a3f..62e872184e 100644 --- a/tactics/refine.ml +++ b/tactics/refine.ml @@ -282,7 +282,8 @@ let dyn_tcc args gl = match args with | [Command com] -> let env = pf_env gl in refine - (Astterm.interp_casted_openconstr (project gl) env com (pf_concl gl)) gl + (Astterm.interp_casted_openconstr (project gl) env com (pf_concl gl)) + gl | [OpenConstr c] -> refine c gl | _ -> assert false |