[ true \Rightarrow i
| false \Rightarrow n]].
-notation < "(❲i↹j❳)n"
- right associative with precedence 71
+notation < "(❲i↹j❳) term 72 n" with precedence 71
for @{ 'transposition $i $j $n}.
-notation < "(❲i \atop j❳)n"
- right associative with precedence 71
+notation < "(❲i \atop j❳) term 72 n" with precedence 71
for @{ 'transposition $i $j $n}.
-interpretation "natural transposition" 'transposition i j n =
- (cic:/matita/nat/permutation/transpose.con i j n).
+notation > "(❲\frac term 90 i term 90 j❳)n" with precedence 71
+for @{ 'transposition $i $j $n}.
+
+interpretation "natural transposition" 'transposition i j n = (transpose i j n).
lemma transpose_i_j_i: \forall i,j:nat. transpose i j i = j.
intros.unfold transpose.
]
]
]
-qed.
\ No newline at end of file
+qed.