diff options
| author | Andreas Lynge | 2019-05-21 20:37:42 +0200 |
|---|---|---|
| committer | Andreas Lynge | 2019-06-06 21:37:27 +0200 |
| commit | 416cccb2b0c7db284130723ef1c2f3851b995ae9 (patch) | |
| tree | fcb02390b8e5828323089b3fe57e6487ce71e0cd /plugins/ltac | |
| parent | 11b8b33f1d7d7fe3f29c83745cc2c06b121a3fb0 (diff) | |
Make discriminate tactic compatible with HoTT
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 5db8f999e5..775d3969db 100644 --- a/plugins/ltac/rewrite.ml +++ b/plugins/ltac/rewrite.ml @@ -947,9 +947,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 |