elimine3[m_List,c1_List,c2_List]:=GridBox[{{
		m[[1,1]],m[[1,2]],m[[1,3]],"=",m[[1,4]],c1[[1]],c2[[1]],""},{FrameBox[m[[2,1]]],m[[2,2]],m[[2,3]],"=",m[[2,4]],StringJoin["⟵ ",ToString[c1[[2]]]],"",""},{FrameBox[m[[3,1]]],m[[3,2]],m[[3,3]],"=",m[[3,4]],"",StringJoin["⟵ ",ToString[c2[[2]]]],""}},
	 ColumnLines->{False,False,False,False,True}]//DisplayForm

elimine3[m_List,c1_List]:=GridBox[{{
		m[[1,1]],m[[1,2]],m[[1,3]],"=",m[[1,4]],"",""},{"",m[[2,2]],m[[2,3]],"=",m[[2,4]],c1[[1]],""},{"",FrameBox[m[[3,2]]],m[[3,3]],"=",m[[3,4]],StringJoin["⟵ ",ToString[c1[[2]]]],""}},
	 ColumnLines->{False,False,False,False,True}]//DisplayForm

elimine4[m_List,c1_List,c2_List,c3_List]:=GridBox[{{
		m[[1,1]],m[[1,2]],m[[1,3]],m[[1,4]],"=",m[[1,5]],c1[[1]],c2[[1]],c3[[1]],""},{FrameBox[m[[2,1]]],m[[2,2]],m[[2,3]],m[[2,4]],"=",m[[2,5]],StringJoin["⟵ ",ToString[c1[[2]]]],"","",""},{FrameBox[m[[3,1]]],m[[3,2]],m[[3,3]],m[[3,4]],"=",m[[3,5]],"",StringJoin["⟵ ",ToString[c2[[2]]]],"",""},
	{FrameBox[m[[4,1]]],m[[4,2]],m[[4,3]],m[[4,4]],"=",m[[4,5]],"","",StringJoin["⟵ ",ToString[c3[[2]]]],""}},
	 ColumnLines->{False,False,False,False,False,True}]//DisplayForm

elimine4[m_List,c1_List,c2_List]:=GridBox[{{
		m[[1,1]],m[[1,2]],m[[1,3]],m[[1,4]],"=",m[[1,5]],"","",""},{"",m[[2,2]],m[[2,3]],m[[2,4]],"=",m[[2,5]],c1[[1]],c2[[1]],""},{"",FrameBox[m[[3,2]]],m[[3,3]],m[[3,4]],"=",m[[3,5]],StringJoin["⟵ ",ToString[c1[[2]]]],"",""},
	{"",FrameBox[m[[4,2]]],m[[4,3]],m[[4,4]],"=",m[[4,5]],"",StringJoin["⟵ ",ToString[c2[[2]]]],""}},
	 ColumnLines->{False,False,False,False,False,True}]//DisplayForm

elimine4[m_List,c1_List]:=GridBox[{{
		m[[1,1]],m[[1,2]],m[[1,3]],m[[1,4]],"=",m[[1,5]],"",""},{"",m[[2,2]],m[[2,3]],m[[2,4]],"=",m[[2,5]],"",""},{"","",m[[3,3]],m[[3,4]],"=",m[[3,5]],c1[[1]],""},
	{"","",FrameBox[m[[4,3]]],m[[4,4]],"=",m[[4,5]],StringJoin["⟵ ",ToString[c1[[2]]]],""}},
	 ColumnLines->{False,False,False,False,False,True}]//DisplayForm