X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fdama%2Frussell_support.ma;h=fc75b76b4f94a51c7243873a77702e52bbae1c12;hb=bc389dd4724959688aafc1ede450794f47b8d0b5;hp=41e60359f93d8d6d0b05df3c011c899fe10166b7;hpb=4dc47c9675ffd5fa50296ffaa9b5997501518c98;p=helm.git diff --git a/helm/software/matita/library/dama/russell_support.ma b/helm/software/matita/library/dama/russell_support.ma index 41e60359f..fc75b76b4 100644 --- a/helm/software/matita/library/dama/russell_support.ma +++ b/helm/software/matita/library/dama/russell_support.ma @@ -18,8 +18,8 @@ include "logic/cprop_connectives.ma". definition hide ≝ λT:Type.λx:T.x. notation < "\blacksquare" non associative with precedence 50 for @{'hide}. -interpretation "hide" 'hide = (hide _ _). -interpretation "hide2" 'hide = (hide _ _ _). +interpretation "hide" 'hide = (hide ? ?). +interpretation "hide2" 'hide = (hide ? ? ?). definition inject ≝ λP.λa:nat.λp:P a. ex_introT ? P ? p. coercion inject 0 1.