freescale porting, work in progress

[helm.git] / helm / software / lambda-delta / basic_rg / brgReduction.mli

diff --git a/helm/software/lambda-delta/basic_rg/brgReduction.mli b/helm/software/lambda-delta/basic_rg/brgReduction.mli
index 91a0289bba82fb8f3d34cbe1d5cc9c6cca5eb182..57e2bfb417ea2540c32244bc08510f040cb2f6cb 100644 (file)
--- a/helm/software/lambda-delta/basic_rg/brgReduction.mli
+++ b/helm/software/lambda-delta/basic_rg/brgReduction.mli
@@ -12,12 +12,8 @@
 
 exception LRefNotFound of Brg.message
 
-type ho_whd_result =
-   | Sort of int
-   | Abst of Brg.term
-
-val ho_whd: 
-   (Brg.context -> ho_whd_result -> 'a) -> Brg.context -> Brg.term -> 'a
+val domain: 
+   (Brg.term option -> 'a) -> Brg.context -> Brg.term -> 'a
 
 val are_convertible:
-   (bool -> 'a) -> Brg.context -> Brg.term -> Brg.term -> 'a
+   (bool -> 'a) -> ?si:bool -> Brg.context -> Brg.term -> Brg.term -> 'a