diff --git a/theories/typing/base.v b/theories/typing/base.v index a987f68f4bc185484c60b184199258d7706efd26..88b675f5320c248e62d0f023469dd51b18d65d6c 100644 --- a/theories/typing/base.v +++ b/theories/typing/base.v @@ -23,8 +23,4 @@ Hint Extern 1 (@eq nat _ (Z.to_nat _)) => Hint Extern 1 (@eq nat (Z.to_nat _) _) => (etrans; [exact: Nat2Z.id | reflexivity]) : lrust_typing. -(* FIXME : I would prefer using a [Hint Resolve <-] for this, but - unfortunately, this is not preserved across modules. See: - https://coq.inria.fr/bugs/show_bug.cgi?id=5189 - This should be fixed in the next version of Coq. *) -Hint Extern 1 (_ ∈ _ ++ _) => apply <- @elem_of_app : lrust_typing. +Hint Resolve <- elem_of_app : lrust_typing.