From: Claudio Sacerdoti Coen Date: Mon, 27 Aug 2012 12:05:30 +0000 (+0000) Subject: size_of_type fixed and simplified X-Git-Tag: make_still_working~1546 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=ceac1e90a8108f526e33bbae7173571c55ea802d;p=helm.git size_of_type fixed and simplified --- diff --git a/matita/components/ng_kernel/nCicExtraction.ml b/matita/components/ng_kernel/nCicExtraction.ml index 32f5bc35e..4f3892cbc 100644 --- a/matita/components/ng_kernel/nCicExtraction.ml +++ b/matita/components/ng_kernel/nCicExtraction.ml @@ -73,10 +73,10 @@ let rec size_of_type = | Unit -> 1 | Top -> 1 | TConst c -> 1 - | Arrow (l, r) -> 1 + size_of_type l + size_of_type r + | Arrow _ -> 2 | Skip t -> size_of_type t - | Forall (name, kind, typ) -> 1 + size_of_type typ - | TAppl l -> List.fold_right (+) (List.map size_of_type l) 0 + | Forall _ -> 2 + | TAppl l -> 1 ;; type term =