minor fixes

[helm.git] / helm / software / matita / contribs / formal_topology / overlap / notation.ma

diff --git a/helm/software/matita/contribs/formal_topology/overlap/notation.ma b/helm/software/matita/contribs/formal_topology/overlap/notation.ma
index 97c1a9b6dfb67c738f0ed3addc7a8d0f30171ba0..2cb92807d142ec9804e4eb98d8134c3a266e1012 100644 (file)
--- a/helm/software/matita/contribs/formal_topology/overlap/notation.ma
+++ b/helm/software/matita/contribs/formal_topology/overlap/notation.ma
@@ -14,3 +14,10 @@
 
 notation "hvbox (r \sub \c)"  with precedence 90 for @{'concr_rel $r}.
 notation "hvbox (r \sub \f)"  with precedence 90 for @{'form_rel $r}.
+
+notation < "mstyle color #ff0000 (…)" non associative with precedence 90
+for @{'hide}.
+
+definition hide ≝ λA:Type.λx:A.x.
+
+interpretation "hide" 'hide = (hide _ _).