diff --git a/extraction/extraction.v b/extraction/extraction.v
index e0f965d77be446744cc079ce5670cf727ecd06e3..22df5933706d952dd17ecf58f6d18ceca7f43c2c 100644
--- a/extraction/extraction.v
+++ b/extraction/extraction.v
@@ -51,10 +51,8 @@ Extract Constant Coloring.graph_coloring => "Coloringaux.graph_coloring".
 Extract Constant Linearize.enumerate_aux => "Linearizeaux.enumerate_aux".
 
 (* PPC *)
-Extract Constant PPC.low_half_signed => "fun _ -> assert false".
-Extract Constant PPC.high_half_signed => "fun _ -> assert false".
-Extract Constant PPC.low_half_unsigned => "fun _ -> assert false".
-Extract Constant PPC.high_half_unsigned => "fun _ -> assert false".
+Extract Constant PPC.low_half => "fun _ -> assert false".
+Extract Constant PPC.high_half => "fun _ -> assert false".
 
 (* Suppression of stupidly big equality functions *)
 Extract Constant CSE.eq_rhs => "fun (x: rhs) (y: rhs) -> x = y".