set "baseuri" "cic:/matita/RELATIONAL/BNot/defs".
+include "logic/equality.ma".
+
include "Bool/defs.ma".
inductive BNot: Bool \to Bool \to Prop \def
| bnot_false: BNot false true
| bnot_true : BNot true false
.
+
+(*CSC: the URI must disappear: there is a bug now *)
+interpretation "boolean not predicate" 'rel_not x y =
+ (cic:/matita/RELATIONAL/BNot/defs/BNot.ind#xpointer(1/1) x y).
+
+(* FG: we can not use - here for some reason *)
+notation "hvbox(~ a break == b)"
+ non associative with precedence 95
+for @{ 'rel_not $a $b}.