diff options
| author | Gaëtan Gilbert | 2020-02-18 14:00:13 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-02-18 14:00:13 +0100 |
| commit | af3fd09e2f0cc2eac2bc8802a6818baf0c184563 (patch) | |
| tree | 0a17a44dc4767827efb0f230168f2b9fdeffadf4 /pretyping/cases.ml | |
| parent | fdcfe8b75be809fcce231a69cb756e1e23d50f93 (diff) | |
| parent | 0fbc51b6cf6cbb83b734cc2f1e482d1c7adeff3c (diff) | |
Merge PR #10204: Remove `unsafe_type_of` from `Coercion`
Reviewed-by: SkySkimmer
Reviewed-by: mattam82
Diffstat (limited to 'pretyping/cases.ml')
| -rw-r--r-- | pretyping/cases.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index 29d6726262..abc16f621e 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -2126,11 +2126,6 @@ let eq_id avoid id = let hid' = next_ident_away hid avoid in hid' -let papp sigma gr args = - let evdref = ref sigma in - let ans = papp evdref gr args in - !evdref, ans - let mk_eq sigma typ x y = papp sigma coq_eq_ind [| typ; x ; y |] let mk_eq_refl sigma typ x = papp sigma coq_eq_refl [| typ; x |] let mk_JMeq sigma typ x typ' y = |