diff options
| author | Pierre-Marie Pédrot | 2019-06-07 09:47:03 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-06-07 09:47:03 +0200 |
| commit | 32f965d53d7e0f969af5f9c52adc5cf7bd2a97a3 (patch) | |
| tree | 2fe9dd4a905e2884f3ef84d81cc1a815cefd9f60 /plugins/ltac | |
| parent | 53e97e17e363e5b6f808b7e8d2f7eab69e236705 (diff) | |
| parent | 416cccb2b0c7db284130723ef1c2f3851b995ae9 (diff) | |
Merge PR #10205: Make discriminate tactic compatible with HoTT
Reviewed-by: Zimmi48
Reviewed-by: mattam82
Reviewed-by: ppedrot
Diffstat (limited to 'plugins/ltac')
| -rw-r--r-- | plugins/ltac/rewrite.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/plugins/ltac/rewrite.ml b/plugins/ltac/rewrite.ml index 7b286e69dc..e0a31e7dba 100644 --- a/plugins/ltac/rewrite.ml +++ b/plugins/ltac/rewrite.ml @@ -946,9 +946,9 @@ let fold_match ?(force=false) env sigma c = if dep then case_dep_scheme_kind_from_prop else case_scheme_kind_from_prop else ( - if dep - then case_dep_scheme_kind_from_type_in_prop - else case_scheme_kind_from_type) + if dep + then case_dep_scheme_kind_from_type_in_prop + else case_scheme_kind_from_type) else ((* sortc <> InProp by typing *) if dep then case_dep_scheme_kind_from_type |