diff --git a/theories/relations.v b/theories/relations.v
index fdadac438988e9b2efad90480765211cad0b3b1f..fc3eb65ad91a4a3c1b33a9adba99c491630f44fb 100644
--- a/theories/relations.v
+++ b/theories/relations.v
@@ -288,7 +288,7 @@ Section properties.
   Proof.
     induction 1 as [x _ IH]. destruct (decide (red R x)) as [[x' ?]|?].
     - destruct (IH x') as (y&?&?); eauto using wn_step.
-    - by apply nf_wf.
+    - by apply nf_wn.
   Qed.
 
   Lemma all_loop_red x : all_loop R x → red R x.