use check_injection_tac also in normalize_and_simpl_goal

theories/lithium/interpreter.v

@@ -561,10 +561,6 @@ Ltac liFalse :=
   | |- False => li_shelve_sidecond
   end.
 
-(* There can be some goals where one should not call injection on an
-hypothesis that is introduced. The [li_impl_check_injection_tac] hook
-allows the client to customize this. *)
-Ltac li_impl_check_injection_tac := idtac.
 Ltac liImpl :=
   lazymatch goal with
   (* relying on the fact that unification variables cannot contain
@@ -587,8 +583,9 @@ Ltac liImpl :=
               | |- false = false -> ?P → _ => move => _;
                 match P with
                 | ∃ _, _ => fail 1 "handled by do_forall"
-                | _ = _ => li_impl_check_injection_tac;
-                      let Hi := fresh "Hi" in move => Hi; injection Hi; clear Hi
+                | _ = _ =>
+                    check_injection_tac;
+                    let Hi := fresh "Hi" in move => Hi; injection Hi; clear Hi
                 | _ => check_hyp_not_exists P; intros ?; subst
                 | _ => move => _
                 end

theories/lithium/solvers.v

@@ -91,7 +91,9 @@ Ltac normalize_and_simpl_goal_step :=
         | |- false = false -> ?P → _ => move => _;
           match P with
           | ∃ _, _ => case
-          | _ = _ => let Hi := fresh "Hi" in move => Hi; injection Hi; clear Hi
+          | _ = _ =>
+              check_injection_tac;
+              let Hi := fresh "Hi" in move => Hi; injection Hi; clear Hi
           | _ => check_hyp_not_exists P; intros ?; subst
           | _ => move => _
           end

theories/lithium/tactics_extend.v

@@ -6,6 +6,11 @@ Global Hint Extern 10 (CanSolve ?P) => (change P; can_solve_tac) : typeclass_ins
 Ltac sidecond_hook := idtac.
 Ltac unsolved_sidecond_hook := idtac.
 
+(* There can be some goals where one should not call injection on an
+hypothesis that is introduced. The [check_injection_tac] hook is called
+before injection and allows the client to customize this. *)
+Ltac check_injection_tac := idtac.
+
 (** * general normalization infrastructure *)
 Ltac normalize_tac := fail "provide a normalize_tac!".
 Lemma tac_normalize_goal (P1 P2 : Prop):