]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/lib/lambda/terms/multiplicity.ma
decentralized notation in lambda
[helm.git] / matita / matita / lib / lambda / terms / multiplicity.ma
index 737ce634bc9e287d8ceb2136be9057a54fdb6e3a..ebe35502d904c6263f037437c3d997fd0211a0f2 100644 (file)
@@ -14,6 +14,8 @@
 
 include "lambda/terms/relocating_substitution.ma".
 
+include "lambda/notation/functions/multiplicity_1.ma".
+
 (* MULTIPLICITY *************************************************************)
 
 (* Note: this gives the number of variable references in M *)
@@ -26,10 +28,6 @@ let rec mult M on M ≝ match M with
 interpretation "term multiplicity"
    'Multiplicity M = (mult M).
 
-notation "hvbox( ♯{ term 46 M } )"
-   non associative with precedence 90
-   for @{ 'Multiplicity $M }.
-
 lemma mult_positive: ∀M. 0 < ♯{M}.
 #M elim M -M // /2 width=1/
 qed.