the sort hierarchy parameter enter the kernel status

[helm.git] / helm / software / lambda-delta / basic_ag / bagUntrusted.mli

diff --git a/helm/software/lambda-delta/basic_ag/bagUntrusted.mli b/helm/software/lambda-delta/basic_ag/bagUntrusted.mli
index 1d25e3da7a2f64728a17c0705a8c9fb31cb4c4f9..af967408ec40ee9f0a4a1d05354b6193f99db918 100644 (file)
--- a/helm/software/lambda-delta/basic_ag/bagUntrusted.mli
+++ b/helm/software/lambda-delta/basic_ag/bagUntrusted.mli
@@ -10,5 +10,4 @@
       V_______________________________________________________________ *)
 
 val type_check:
-   (Bag.term -> Bag.entity -> 'a) -> ?si:bool ->
-   Hierarchy.graph -> Bag.entity -> 'a
+   (Bag.term -> Bag.entity -> 'a) -> Entity.status -> Bag.entity -> 'a