Quot/quotient_tacs.ML
changeset 980 9d35c6145dd2
parent 964 31907e0648ee
child 1068 62e54830590f
child 1074 7a42cc191111
equal deleted inserted replaced
979:a88e16b69d0f 980:9d35c6145dd2
   364     (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _)) $
   364     (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _)) $
   365     (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _))
   365     (Const(@{const_name Bex1},_) $ (Const (@{const_name Respects}, _) $ _))
   366       => rtac @{thm fun_rel_id} THEN' quot_true_tac ctxt unlam
   366       => rtac @{thm fun_rel_id} THEN' quot_true_tac ctxt unlam
   367 
   367 
   368 | (Const (@{const_name fun_rel}, _) $ _ $ _) $
   368 | (Const (@{const_name fun_rel}, _) $ _ $ _) $
   369     (Const(@{const_name Bexeq},_) $ _) $ (Const(@{const_name Bexeq},_) $ _)
   369     (Const(@{const_name Bex1_rel},_) $ _) $ (Const(@{const_name Bex1_rel},_) $ _)
   370       => rtac @{thm bexeq_rsp} THEN' quotient_tac ctxt
   370       => rtac @{thm bexeq_rsp} THEN' quotient_tac ctxt
   371 
   371 
   372 | (_ $
   372 | (_ $
   373     (Const(@{const_name Babs},_) $ (Const (@{const_name Respects}, _) $ _) $ _) $
   373     (Const(@{const_name Babs},_) $ (Const (@{const_name Respects}, _) $ _) $ _) $
   374     (Const(@{const_name Babs},_) $ (Const (@{const_name Respects}, _) $ _) $ _))
   374     (Const(@{const_name Babs},_) $ (Const (@{const_name Respects}, _) $ _) $ _))