如何展开类似于auto，eauto这些集成策略的细节？

目前了解到一种方法是用Definition写引理，然后Print引理名称。

Definition p20_exam1 (p q:bool) : p -> (q|>p).
eauto.
Defined.
Print p20_exam1. 

Print的结果如下：

p20_exam1 = 
fun (p q : bool) (H : p) => MP p (q |> p) H (L1 p q)
     : forall p q : bool, p -> q |> p

Argument scopes are [bool_scope bool_scope _]