X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Flambda-delta%2Fautomath%2FautProcess.ml;h=0009e021eea3996b1d7843461aea5f2fea2de459;hb=3f6af93003bef461be59c8d4c96009c631f0c2e7;hp=56ecd4ca47a8cb1ef874245c81a24868c63e6f06;hpb=79684e8bd0f54b5c88fff981366bd8c78dd0fbe9;p=helm.git

diff --git a/helm/software/lambda-delta/automath/autProcess.ml b/helm/software/lambda-delta/automath/autProcess.ml
index 56ecd4ca4..0009e021e 100644
--- a/helm/software/lambda-delta/automath/autProcess.ml
+++ b/helm/software/lambda-delta/automath/autProcess.ml
@@ -57,12 +57,12 @@ let proc_global f st =
    in
    exp_count f st
 
-let proc_unit f st unit = match unit with
-   | A.Section section -> proc_section f st section unit
-   | A.Context _       -> proc_context f st unit  
-   | A.Block _         -> proc_block f st unit
-   | A.Decl _          -> proc_global f st unit
-   | A.Def _           -> proc_global f st unit
+let proc_entity f st entity = match entity with
+   | A.Section section -> proc_section f st section entity
+   | A.Context _       -> proc_context f st entity  
+   | A.Block _         -> proc_block f st entity
+   | A.Decl _          -> proc_global f st entity
+   | A.Def _           -> proc_global f st entity
    
 (* interface functions ******************************************************)
 
@@ -72,6 +72,6 @@ let initial_status = {
    iao = 0; iar = 0; iac = 0; iag = 0
 }
 
-let process_unit = proc_unit
+let process_entity = proc_entity
 
 let get_counters f st = f st.iao st.iar st.iac st.iag