diff -r ad6d4a14adb5 -r f03a01a18c6e src/HOL/Analysis/Determinants.thy --- a/src/HOL/Analysis/Determinants.thy Fri Apr 12 19:48:29 2019 +0200 +++ b/src/HOL/Analysis/Determinants.thy Fri Apr 12 22:09:25 2019 +0200 @@ -12,7 +12,7 @@ subsection \Trace\ -definition%important trace :: "'a::semiring_1^'n^'n \ 'a" +definition\<^marker>\tag important\ trace :: "'a::semiring_1^'n^'n \ 'a" where "trace A = sum (\i. ((A$i)$i)) (UNIV::'n set)" lemma trace_0: "trace (mat 0) = 0" @@ -33,9 +33,9 @@ apply (simp add: mult.commute) done -subsubsection%important \Definition of determinant\ +subsubsection\<^marker>\tag important\ \Definition of determinant\ -definition%important det:: "'a::comm_ring_1^'n^'n \ 'a" where +definition\<^marker>\tag important\ det:: "'a::comm_ring_1^'n^'n \ 'a" where "det A = sum (\p. of_int (sign p) * prod (\i. A$i$p i) (UNIV :: 'n set)) {p. p permutes (UNIV :: 'n set)}" @@ -776,7 +776,7 @@ using invertible_det_nz [of A] by (auto simp: matrix_left_invertible_injective invertible_left_inverse less_rank_noninjective) -subsubsection%important \Invertibility of matrices and corresponding linear functions\ +subsubsection\<^marker>\tag important\ \Invertibility of matrices and corresponding linear functions\ lemma matrix_left_invertible_gen: fixes f :: "'a::field^'m \ 'a::field^'n" @@ -994,12 +994,12 @@ proposition orthogonal_transformation_det [simp]: fixes f :: "real^'n \ real^'n" shows "orthogonal_transformation f \ \det (matrix f)\ = 1" - using%unimportant det_orthogonal_matrix orthogonal_transformation_matrix by fastforce + using det_orthogonal_matrix orthogonal_transformation_matrix by fastforce subsection \Rotation, reflection, rotoinversion\ -definition%important "rotation_matrix Q \ orthogonal_matrix Q \ det Q = 1" -definition%important "rotoinversion_matrix Q \ orthogonal_matrix Q \ det Q = - 1" +definition\<^marker>\tag important\ "rotation_matrix Q \ orthogonal_matrix Q \ det Q = 1" +definition\<^marker>\tag important\ "rotoinversion_matrix Q \ orthogonal_matrix Q \ det Q = - 1" lemma orthogonal_rotation_or_rotoinversion: fixes Q :: "'a::linordered_idom^'n^'n"