diff options
| author | Gaëtan Gilbert | 2020-02-06 15:49:00 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-02-06 21:17:56 +0100 |
| commit | 9268c5f9e066730eef6f831b4fcdc55f5a022b36 (patch) | |
| tree | 33616e11ea1629914d0cea3149d0ad8c2a869f12 | |
| parent | 8a736c4d3aaf941416ffc616c296a3b077d6242f (diff) | |
unsafe_type_of -> type_of in Tactics.given_elim
| -rw-r--r-- | tactics/tactics.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 1624c4a62d..046d76294c 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -4238,8 +4238,8 @@ let given_elim hyp0 (elimc,lbind as e) gl = let sigma = Tacmach.New.project gl in let tmptyp0 = Tacmach.New.pf_get_hyp_typ hyp0 gl in let ind_type_guess,_ = decompose_app sigma (snd (decompose_prod sigma tmptyp0)) in - let elimt = Tacmach.New.pf_unsafe_type_of gl elimc in - Tacmach.New.project gl, (e, elimt), ind_type_guess + let sigma, elimt = Tacmach.New.pf_type_of gl elimc in + sigma, (e, elimt), ind_type_guess type scheme_signature = (Id.Set.t * (elim_arg_kind * bool * bool * Id.t) list) array |