diff options
| -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 |