diff options
Diffstat (limited to 'plugins/decl_mode/decl_proof_instr.ml')
| -rw-r--r-- | plugins/decl_mode/decl_proof_instr.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/plugins/decl_mode/decl_proof_instr.ml b/plugins/decl_mode/decl_proof_instr.ml index 5de2c4151..e73166be2 100644 --- a/plugins/decl_mode/decl_proof_instr.ml +++ b/plugins/decl_mode/decl_proof_instr.ml @@ -786,7 +786,7 @@ let rec consider_match may_intro introduced available expected gls = let consider_tac c hyps gls = let c = EConstr.of_constr c in - match kind_of_term (strip_outer_cast (project gls) c) with + match EConstr.kind (project gls) (strip_outer_cast (project gls) c) with Var id -> consider_match false [] [id] hyps gls | _ -> @@ -811,6 +811,9 @@ let rec take_tac wits gls = (* tactics for define *) +let subst_term sigma c t = + EConstr.Unsafe.to_constr (subst_term sigma c t) + let rec build_function sigma args body = match args with st::rest -> |