diff options
| author | Théo Zimmermann | 2019-05-23 15:10:20 +0200 |
|---|---|---|
| committer | Théo Zimmermann | 2019-05-23 15:10:20 +0200 |
| commit | e7628797fc241a4d7a5c1a5675cb679db282050d (patch) | |
| tree | 8e8cc4348dfb9247713f45a7c43668ba98c708cf /plugins/ltac/tacinterp.ml | |
| parent | cf3b9eca0b3e81a7d56acded394a8b6843a4bb8d (diff) | |
| parent | 467eb67bb960c15e1335f375af29b4121ac5262b (diff) | |
Merge PR #10221: Fixing typos - Part 2 (reopening of #10218)
Diffstat (limited to 'plugins/ltac/tacinterp.ml')
| -rw-r--r-- | plugins/ltac/tacinterp.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/ltac/tacinterp.ml b/plugins/ltac/tacinterp.ml index 800be2565d..4a0b01bcdc 100644 --- a/plugins/ltac/tacinterp.ml +++ b/plugins/ltac/tacinterp.ml @@ -855,7 +855,7 @@ let interp_binding_name ist env sigma = function | NamedHyp id -> (* If a name is bound, it has to be a quantified hypothesis *) (* user has to use other names for variables if these ones clash with *) - (* a name intented to be used as a (non-variable) identifier *) + (* a name intended to be used as a (non-variable) identifier *) try try_interp_ltac_var (coerce_to_quantified_hypothesis sigma) ist (Some (env,sigma)) (make id) with Not_found -> NamedHyp id @@ -2075,7 +2075,7 @@ let _ = let extra = TacStore.set TacStore.empty f_debug (get_debug ()) in let ist = { lfun; poly; extra; } in let tac = interp_tactic ist tac in - (* EJGA: We sould also pass the proof name if desired, for now + (* EJGA: We should also pass the proof name if desired, for now poly seems like enough to get reasonable behavior in practice *) let name, poly = Id.of_string "ltac_gen", poly in |