diff options
| author | Pierre-Marie Pédrot | 2021-01-18 14:46:56 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-01-18 14:46:56 +0100 |
| commit | f44e65e0d209fdada20998d661ad10a5e82a0d92 (patch) | |
| tree | 34d5dad454921ec5ad00c64feb424910dd48b694 /kernel/cClosure.ml | |
| parent | 4efb4b01c6f44127c6c0982ee777651de2ab9204 (diff) | |
| parent | 8c2caf0caee19fd8e67e52e05bfc4a8d9ca8d186 (diff) | |
Merge PR #13454: Remove unused retro_refl
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/cClosure.ml')
| -rw-r--r-- | kernel/cClosure.ml | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/kernel/cClosure.ml b/kernel/cClosure.ml index a32c8f1cd1..8edf916a7a 100644 --- a/kernel/cClosure.ml +++ b/kernel/cClosure.ml @@ -1171,16 +1171,6 @@ module FNativeEntries = fNInf := { mark = mark Cstr KnownR; term = FConstruct (Univ.in_punivs cNInf) }; fNaN := { mark = mark Cstr KnownR; term = FConstruct (Univ.in_punivs cNaN) }; | None -> defined_f_class := false - let defined_refl = ref false - - let frefl = ref dummy - - let init_refl retro = - match retro.Retroknowledge.retro_refl with - | Some crefl -> - defined_refl := true; - frefl := { mark = mark Cstr KnownR; term = FConstruct (Univ.in_punivs crefl) } - | None -> defined_refl := false let defined_array = ref false @@ -1197,7 +1187,6 @@ module FNativeEntries = init_cmp !current_retro; init_f_cmp !current_retro; init_f_class !current_retro; - init_refl !current_retro; init_array !current_retro let check_env env = |