Skip to content
Snippets Groups Projects
Commit a30d1b32 authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan
Browse files

Try making [lrust_typing] non-discriminated to see whether anything changes.

parent bb9d135f
No related branches found
No related tags found
No related merge requests found
Pipeline #
...@@ -22,6 +22,7 @@ lrust-coq8.6: ...@@ -22,6 +22,7 @@ lrust-coq8.6:
- master - master
- ci - ci
- /^ralf/ci// - /^ralf/ci//
- jh/undiscriminated_hintdb
artifacts: artifacts:
paths: paths:
- build-time.txt - build-time.txt
......
...@@ -454,6 +454,9 @@ End elctx_incl. ...@@ -454,6 +454,9 @@ End elctx_incl.
Arguments elctx_incl {_ _ _} _%EL _%LL _%EL _%EL. Arguments elctx_incl {_ _ _} _%EL _%LL _%EL _%EL.
Create HintDb lrust_typing.
Create HintDb lrust_typing_merge.
(* We first try to solve everything without the merging rules, and (* We first try to solve everything without the merging rules, and
then start from scratch with them. then start from scratch with them.
...@@ -463,8 +466,6 @@ Arguments elctx_incl {_ _ _} _%EL _%LL _%EL _%EL. ...@@ -463,8 +466,6 @@ Arguments elctx_incl {_ _ _} _%EL _%LL _%EL _%EL.
Ltac solve_typing := Ltac solve_typing :=
(typeclasses eauto with lrust_typing typeclass_instances core; fail) || (typeclasses eauto with lrust_typing typeclass_instances core; fail) ||
(typeclasses eauto with lrust_typing lrust_typing_merge typeclass_instances core; fail). (typeclasses eauto with lrust_typing lrust_typing_merge typeclass_instances core; fail).
Create HintDb lrust_typing discriminated.
Create HintDb lrust_typing_merge discriminated.
Hint Constructors Forall Forall2 elem_of_list : lrust_typing. Hint Constructors Forall Forall2 elem_of_list : lrust_typing.
Hint Resolve of_val_unlock : lrust_typing. Hint Resolve of_val_unlock : lrust_typing.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment