When discrimination is not possible, try to project.
When discrimination is not possible, try to project.

Example:
Inductive Pnat : Prop := O | S : Pnat -> Pnat.

Variable m n : Pnat.

Goal S (S O) = S O -> False.
intros H; injection H.

now deduces S O = O instead of failing with an error message.

silene/coq,mattam82/coq,JasonGross/coq,shindere/coq,coq/coq,TOSPIO/coq,william-lawvere/coq,maximedenes/coq,coq/coq,jpdeplaix/coq,SkySkimmer/coq,barras/coq,mattam82/coq,ale-f/coq,william-lawvere/coq,8l/coq,TOSPIO/coq,Matafou/coq,8l/coq,Ptival/coq,maximedenes/coq,Matafou/coq,pirapira/coq2rust,Zimmi48/coq,Zimmi48/coq,ppedrot/coq,mattam82/coq,ejgallego/coq,8l/coq,jpdeplaix/coq,aspiwack/coq,mlasson/coq,aspiwack/coq,shindere/coq,JasonGross/coq,ppedrot/coq,TheTypoMaster/coq,ale-f/coq,maximedenes/coq,william-lawvere/coq,Ptival/coq,letouzey/coq-wip,ppedrot/coq,asr/coq,Matafou/coq,amintimany/coq,ejgallego/coq,letouzey/coq-wip,gares/coq,ejgallego/coq,barras/coq,maximedenes/coq,herbelin/github-coq,amintimany/coq,TheTypoMaster/coq,gmalecha/coq,ppedrot/coq,TOSPIO/coq,gmalecha/coq,letouzey/coq-wip,gmalecha/coq,asr/coq,Ptival/coq,ale-f/coq,coq/coq,letouzey/coq-wip,gares/coq,mlasson/coq,herbelin/github-coq,SkySkimmer/coq,JasonGross/coq,pirapira/coq2rust,ejgallego/coq,asr/coq,SkySkimmer/coq,gares/coq,shindere/coq,silene/coq,Zimmi48/coq,pirapira/coq2rust,gares/coq,mlasson/coq,maximedenes/coq,JasonGross/coq,letouzey/coq-wip,barras/coq,SkySkimmer/coq,herbelin/github-coq,jpdeplaix/coq,TheTypoMaster/coq,Lionel-Rieg/coq,coq/coq,amintimany/coq,silene/coq,gares/coq,Lionel-Rieg/coq,Lionel-Rieg/coq,ppedrot/coq,Zimmi48/coq,aspiwack/coq