diff --git a/compiler/heptagon/analysis/causal.ml b/compiler/heptagon/analysis/causal.ml
index 521051f..1216ae7 100644
--- a/compiler/heptagon/analysis/causal.ml
+++ b/compiler/heptagon/analysis/causal.ml
@@ -181,7 +181,6 @@ let build ac =
 
     let rec add_dependence g = function
         | Aread(n) -> attach g n
-	      | Atuple l -> List.iter (add_dependence g) l
 	      | _ -> ()
     in